/ Beginning Mac Programming / Beginning Mac Programming.bin / pc / Open Me for REALbasic 3 / REALbasic 3.2 / Example Projects / Applications / The Mod Bot / Mod Bot π

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 52 62 42 46 00 00 00 01 | 00 00 00 00 00 00 00 00 |RbBF....|........|
|00000010| 00 00 00 14 42 6c 6f 6b | 50 72 6f 6a 00 00 00 00 |....Blok|Proj....|
|00000020| 00 00 00 00 00 00 14 00 | 00 00 00 00 43 b0 6a 7f |........|....C.j.|
|00000030| 62 7e 82 45 4f 50 53 70 | 53 74 72 6e 00 00 00 00 |b~.EOPSp|Strn....|
|00000040| 56 65 72 31 49 6e 74 20 | 00 00 00 01 56 65 72 32 |Ver1Int |....Ver2|
|00000050| 49 6e 74 20 00 00 00 00 | 56 65 72 33 49 6e 74 20 |Int ....|Ver3Int |
|00000060| 00 00 00 00 52 65 6c 73 | 49 6e 74 20 00 00 00 00 |....Rels|Int ....|
|00000070| 4e 6e 52 6c 49 6e 74 20 | 00 00 00 00 53 56 65 72 |NnRlInt |....SVer|
|00000080| 53 74 72 6e 00 00 00 00 | 4c 56 65 72 53 74 72 6e |Strn....|LVerStrn|
|00000090| 00 00 00 00 49 56 65 72 | 53 74 72 6e 00 00 00 00 |....IVer|Strn....|
|000000a0| 52 65 67 6e 49 6e 74 20 | 00 00 00 00 44 56 65 77 |RegnInt |....DVew|
|000000b0| 49 6e 74 20 00 00 00 00 | 44 4c 61 6e 49 6e 74 20 |Int ....|DLanInt |
|000000c0| 00 00 00 00 43 4c 61 6e | 49 6e 74 20 00 00 00 00 |....CLan|Int ....|
|000000d0| 54 61 72 67 49 6e 74 20 | 00 00 00 01 42 66 6c 67 |TargInt |....Bflg|
|000000e0| 49 6e 74 20 00 00 00 05 | 49 63 6f 6e 47 72 75 70 |Int ....|IconGrup|
|000000f0| 00 00 07 14 00 00 00 02 | 65 6c 65 6d 47 72 75 70 |........|elemGrup|
|00000100| 00 00 04 1c 00 00 00 03 | 74 79 70 65 49 6e 74 20 |........|typeInt |
|00000110| 69 63 6c 38 64 61 74 61 | 53 74 72 6e 00 00 04 00 |icl8data|Strn....|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| fd 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 fd |........|........|
|00000150| f6 fd 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 fd f6 |........|........|
|00000170| f8 fb fd 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 fd f6 f8 |........|........|
|00000190| f8 f8 fb fd 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 fd f6 f8 f8 |........|........|
|000001b0| f8 f8 f8 fb fd 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 fd f6 f9 f9 f9 |........|........|
|000001d0| f9 f9 f9 f9 fb fd 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000001f0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000200| ff f5 f5 f5 f5 f5 f5 f5 | f5 f5 f5 f5 f5 f5 f5 f5 |........|........|
|00000210| f5 f5 f5 f5 f5 f5 f5 f5 | f5 f5 f5 f5 f5 f5 f6 ff |........|........|
|00000220| ff f5 f5 f6 f6 f6 f6 f6 | f6 f6 f6 f6 f6 f6 f6 f6 |........|........|
|00000230| f6 f6 f6 f6 f6 f6 f6 f6 | f6 f6 f6 f6 f6 f6 f7 ff |........|........|
|00000240| ff f5 f6 56 82 3a 3a 81 | 80 5e 3a 5e fb 56 39 58 |...V.::.|.^:^.V9X|
|00000250| 3a 5d 56 fb 5e 3a 58 3a | 5e 3a 81 4f f5 2b f7 ff |:]V.^:X:|^:.O.+..|
|00000260| ff f5 f5 57 41 ad 89 11 | 17 5f ad 89 11 17 65 89 |...WA...|._....e.|
|00000270| 89 65 17 11 89 89 89 de | 89 89 17 65 55 f5 f7 ff |.e......|...eU...|
|00000280| ff f5 f5 33 89 ff ff b3 | 11 ff e0 ff 11 ff ff ff |...3....|........|
|00000290| ff ff ea 11 ff ff ff fe | ff ff ff 17 82 f6 f7 ff |........|........|
|000002a0| ff f5 f6 33 65 ff ff ff | ff ff ff e0 ad ff ad 0a |...3e...|........|
|000002b0| 0b ad ff ad e0 ff 5f 10 | 11 ff ff 65 5e 56 f7 ff |......_.|...e^V..|
|000002c0| ff f5 f6 33 89 ff ff ff | ff ff ff fe 89 ff ff 17 |...3....|........|
|000002d0| 16 e0 f4 89 e0 ff 65 0b | 3b ff ff 5f 88 56 f7 ff |......e.|;.._.V..|
|000002e0| ff f5 f6 33 89 ff 89 3b | ad 5f ff ff 10 b3 ff ff |...3...;|._......|
|000002f0| ea ff ad 10 ff ff ff ff | f4 ea b3 11 fd f8 f7 ff |........|........|
|00000300| ff f5 f6 81 17 3b 3b 10 | 11 16 3b 11 11 0b 10 3b |.....;;.|..;....;|
|00000310| 3b 10 11 11 3b 3b 3b 3b | 3b 3a 0b ad ab f7 f7 ff |;...;;;;|;:......|
|00000320| ff f5 f6 56 ad 17 f4 ff | ff ff ff 3b 10 5f ff ff |...V....|...;._..|
|00000330| ff fe 11 10 ff f4 f4 f4 | ff ff 3b 88 56 f6 f7 ff |........|..;.V...|
|00000340| ff f5 f6 2b 5d 3b ff fe | 3b 5f ff fe 89 ff ff 5f |...+];..|;_....._|
|00000350| 65 ff ff 3b 3b 3b ff ff | 89 3b 11 88 4f f5 f7 ff |e..;;;..|.;..O...|
|00000360| ff f5 f6 f5 33 3b ff e0 | ad df f4 11 e0 e0 5f 0a |....3;..|......_.|
|00000370| 0a ad ff 89 35 3a ff ff | 11 5e f4 fd 2b f6 f7 ff |....5:..|.^..+...|
|00000380| ff f5 f6 f5 57 41 ff e0 | 5f 89 ff f4 5f f4 ff 89 |....WA..|_..._...|
|00000390| ad ff ff 11 88 3b ff ff | 17 88 a5 56 2b f6 f7 ff |.....;..|...V+...|
|000003a0| ff f5 f6 f5 33 3b ff ff | e0 ff e0 11 11 11 89 ff |....3;..|........|
|000003b0| ff 65 11 5f d6 11 ff ff | 17 82 2b f5 f6 f6 f7 ff |.e._....|..+.....|
|000003c0| ff f5 f6 00 fa 41 17 17 | 3b 17 17 5f f3 65 3b 17 |.....A..|;.._.e;.|
|000003d0| 17 3b 89 d6 80 65 17 17 | 3b ac 2b f6 f6 f6 f7 ff |.;...e..|;.+.....|
|000003e0| ff f5 f6 f6 2b a5 d0 d0 | ab d0 ac cf 81 a5 a5 ab |....+...|........|
|000003f0| ac cf ab f9 2b 7a ac d0 | d0 fb 2b f6 f6 2b f7 ff |....+z..|..+..+..|
|00000400| ff f5 f6 f6 f6 f7 56 56 | 56 56 56 56 2b f6 f7 56 |......VV|VVVV+..V|
|00000410| 56 56 56 f6 f5 2b 56 56 | 56 56 2b f6 f6 f6 f7 ff |VVV..+VV|VV+.....|
|00000420| ff f6 f7 f7 f7 f7 f7 f7 | f7 f7 f7 f7 f7 f7 f7 f7 |........|........|
|00000430| f7 f7 f7 f7 f7 f7 f7 f7 | f7 f7 f7 f7 f7 f7 f7 ff |........|........|
|00000440| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000450| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 fd 81 81 81 81 |........|........|
|00000470| 81 81 81 81 81 fd 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 fd fa f9 f9 |........|........|
|00000490| f9 f9 f9 fc fd 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 fd 81 f8 |........|........|
|000004b0| f8 f8 fc fd 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 fd 81 |........|........|
|000004d0| f8 fb fd 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 fd |........|........|
|000004f0| fb fd 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| fd 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 45 6e 64 47 49 6e 74 20 | 00 00 00 03 65 6c 65 6d |EndGInt |....elem|
|00000530| 47 72 75 70 00 00 01 1c | 00 00 00 04 74 79 70 65 |Grup....|....type|
|00000540| 49 6e 74 20 69 63 73 38 | 64 61 74 61 53 74 72 6e |Int ics8|dataStrn|
|00000550| 00 00 01 00 00 00 00 00 | 00 00 00 fd fd 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 fd fd fb fd 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 fd fd f9 f9 fb fd 00 |........|........|
|00000580| 00 00 00 00 ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000590| ff ff ff ff ff f6 f6 f6 | f6 f6 f6 f6 f6 f6 f6 f6 |........|........|
|000005a0| f6 f6 f6 ff ff f5 ff ff | f6 ff f6 ff ff f6 ff ff |........|........|
|000005b0| ff f6 f6 ff ff f6 ff 65 | ff 65 ff 65 65 ff 65 65 |.......e|.e.ee.ee|
|000005c0| 65 ff f6 ff ff f6 ff 65 | 65 65 ff 65 65 ff 65 ff |e......e|ee.ee.e.|
|000005d0| 65 fd f6 ff ff f6 ad 65 | ff 65 ff 65 65 ff 65 ff |e......e|.e.ee.e.|
|000005e0| 65 fd f6 ff ff f6 ff 65 | ff 65 ff 65 65 ff 65 65 |e......e|.e.ee.ee|
|000005f0| 65 fd f6 ff ff f6 ff ff | f6 e0 f6 ff ff f6 d6 ff |e.......|........|
|00000600| ac f6 f6 ff ff f6 f6 f6 | f6 f6 f6 f6 f6 f6 f6 f6 |........|........|
|00000610| f6 f6 f6 ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000620| ff ff ff ff 00 00 00 00 | 00 fd fd f9 f9 fc fd 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 fd fd fb fd 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 fd fd 00 00 00 |........|........|
|00000650| 00 00 00 00 45 6e 64 47 | 49 6e 74 20 00 00 00 04 |....EndG|Int ....|
|00000660| 65 6c 65 6d 47 72 75 70 | 00 00 01 1c 00 00 00 05 |elemGrup|........|
|00000670| 74 79 70 65 49 6e 74 20 | 49 43 4e 23 64 61 74 61 |typeInt |ICN#data|
|00000680| 53 74 72 6e 00 00 01 00 | 00 00 80 00 00 01 c0 00 |Strn....|........|
|00000690| 00 03 60 00 00 06 30 00 | 00 0c 18 00 00 18 0c 00 |..`...0.|........|
|000006a0| ff ff ff ff 80 00 00 01 | 80 00 00 01 8f f8 dd e1 |........|........|
|000006b0| 8e 73 cf d1 8f 77 ef e9 | 8f fe 7e 79 8f fe 7e f9 |.s...w..|..~y..~.|
|000006c0| 8f f7 ef e9 96 21 8f d9 | 8b f7 cf f1 8f ff ff d1 |.....!..|........|
|000006d0| 87 ee 77 71 87 ff ef 61 | 87 e3 db 41 8c 9e 7c c1 |..wq...a|...A..|.|
|000006e0| 87 ff e3 c1 80 00 00 01 | 80 00 00 01 ff ff ff ff |........|........|
|000006f0| 00 1f fc 00 00 0c 18 00 | 00 06 30 00 00 03 60 00 |........|..0...`.|
|00000700| 00 01 c0 00 00 00 80 00 | 00 00 80 00 00 01 c0 00 |........|........|
|00000710| 00 03 e0 00 00 07 f0 00 | 00 0f f8 00 00 1f fc 00 |........|........|
|00000720| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000730| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000740| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000750| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000760| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000770| 00 1f fc 00 00 0f f8 00 | 00 07 f0 00 00 03 e0 00 |........|........|
|00000780| 00 01 c0 00 00 00 80 00 | 45 6e 64 47 49 6e 74 20 |........|EndGInt |
|00000790| 00 00 00 05 65 6c 65 6d | 47 72 75 70 00 00 00 5c |....elem|Grup...\|
|000007a0| 00 00 00 06 74 79 70 65 | 49 6e 74 20 69 63 73 23 |....type|Int ics#|
|000007b0| 64 61 74 61 53 74 72 6e | 00 00 00 40 01 80 03 c0 |dataStrn|...@....|
|000007c0| 06 60 ff ff 80 01 b5 b9 | bf fd bf fd bf fd bf fd |.`......|........|
|000007d0| b5 b9 80 01 ff ff 06 60 | 03 c0 01 80 01 80 03 c0 |.......`|........|
|000007e0| 07 e0 ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000007f0| ff ff ff ff ff ff 07 e0 | 03 c0 01 80 45 6e 64 47 |........|....EndG|
|00000800| 49 6e 74 20 00 00 00 06 | 45 6e 64 47 49 6e 74 20 |Int ....|EndGInt |
|00000810| 00 00 00 02 43 50 61 6c | 47 72 75 70 00 00 00 d0 |....CPal|Grup....|
|00000820| 00 00 00 07 66 6c 61 67 | 49 6e 74 20 00 00 00 01 |....flag|Int ....|
|00000830| 65 6c 65 6d 49 6e 74 20 | 00 7f 7f 7f 65 6c 65 6d |elemInt |....elem|
|00000840| 49 6e 74 20 00 00 00 00 | 65 6c 65 6d 49 6e 74 20 |Int ....|elemInt |
|00000850| 00 d1 ff 07 65 6c 65 6d | 49 6e 74 20 ff ff ff ff |....elem|Int ....|
|00000860| 65 6c 65 6d 49 6e 74 20 | ff ff ff ff 65 6c 65 6d |elemInt |....elem|
|00000870| 49 6e 74 20 ff ff ff ff | 65 6c 65 6d 49 6e 74 20 |Int ....|elemInt |
|00000880| ff ff ff ff 65 6c 65 6d | 49 6e 74 20 ff ff ff ff |....elem|Int ....|
|00000890| 65 6c 65 6d 49 6e 74 20 | ff ff ff ff 65 6c 65 6d |elemInt |....elem|
|000008a0| 49 6e 74 20 ff ff ff ff | 65 6c 65 6d 49 6e 74 20 |Int ....|elemInt |
|000008b0| ff ff ff ff 65 6c 65 6d | 49 6e 74 20 ff ff ff ff |....elem|Int ....|
|000008c0| 65 6c 65 6d 49 6e 74 20 | ff ff ff ff 65 6c 65 6d |elemInt |....elem|
|000008d0| 49 6e 74 20 ff ff ff ff | 65 6c 65 6d 49 6e 74 20 |Int ....|elemInt |
|000008e0| ff ff ff ff 65 6c 65 6d | 49 6e 74 20 ff ff ff ff |....elem|Int ....|
|000008f0| 45 6e 64 47 49 6e 74 20 | 00 00 00 07 4d 61 63 43 |EndGInt |....MacC|
|00000900| 53 74 72 6e 00 00 00 04 | 4d 64 42 74 42 4d 61 63 |Strn....|MdBtBMac|
|00000910| 53 74 72 6e 00 00 00 0b | 54 68 65 20 4d 6f 64 20 |Strn....|The Mod |
|00000920| 42 6f 74 00 42 53 69 7a | 49 6e 74 20 00 20 00 00 |Bot.BSiz|Int . ..|
|00000930| 42 4d 53 7a 49 6e 74 20 | 00 10 00 00 4d 44 49 63 |BMSzInt |....MDIc|
|00000940| 53 74 72 6e 00 00 00 0e | 4d 79 20 41 70 70 6c 69 |Strn....|My Appli|
|00000950| 63 61 74 69 6f 6e 00 00 | 42 57 69 6e 53 74 72 6e |cation..|BWinStrn|
|00000960| 00 00 00 0b 41 70 70 4e | 61 6d 65 2e 65 78 65 00 |....AppN|ame.exe.|
|00000970| 42 4d 44 49 49 6e 74 20 | 00 00 00 00 72 45 64 74 |BMDIInt |....rEdt|
|00000980| 52 65 63 74 00 00 00 8f | 00 00 00 36 00 00 00 d0 |Rect....|...6....|
|00000990| 00 00 00 cc 66 54 79 70 | 47 72 75 70 00 00 07 7c |....fTyp|Grup...||
|000009a0| 00 00 00 08 6e 61 6d 65 | 53 74 72 6e 00 00 00 06 |....name|Strn....|
|000009b0| 73 65 72 76 65 72 00 00 | 4d 61 63 43 53 74 72 6e |server..|MacCStrn|
|000009c0| 00 00 00 04 4d 64 42 74 | 74 79 70 65 53 74 72 6e |....MdBt|typeStrn|
|000009d0| 00 00 00 04 53 52 56 52 | 64 65 66 6e 53 74 72 6e |....SRVR|defnStrn|
|000009e0| 00 00 00 00 66 6c 61 67 | 49 6e 74 20 00 00 00 01 |....flag|Int ....|
|000009f0| 49 63 6f 6e 47 72 75 70 | 00 00 07 14 00 00 00 09 |IconGrup|........|
|00000a00| 65 6c 65 6d 47 72 75 70 | 00 00 04 1c 00 00 00 0a |elemGrup|........|
|00000a10| 74 79 70 65 49 6e 74 20 | 69 63 6c 38 64 61 74 61 |typeInt |icl8data|
|00000a20| 53 74 72 6e 00 00 04 00 | 00 00 00 00 00 00 00 00 |Strn....|........|
|00000a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b50| 00 00 00 00 df dd fa 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b70| 00 00 00 df dc dc dc df | dd fa 00 00 00 00 00 00 |........|........|
|00000b80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b90| 00 00 df dc d9 d9 db dc | dc dc df dd fa 00 00 00 |........|........|
|00000ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bb0| 00 df dc d9 1d 1d 1d d9 | d9 db dc dc dc df dd fa |........|........|
|00000bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bd0| df dc d9 1d 17 17 17 1d | 1d 1d d9 d9 db dc dc dc |........|........|
|00000be0| df 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 df |........|........|
|00000bf0| dc d9 1d 17 17 17 17 17 | 17 17 1d 1d 1d d9 dc dc |........|........|
|00000c00| df 00 00 00 00 00 00 00 | 00 00 00 00 00 00 df dc |........|........|
|00000c10| d9 1d 17 17 17 17 17 17 | 17 17 17 1d d9 dc d9 dc |........|........|
|00000c20| df 00 00 00 00 00 00 00 | 00 00 00 00 00 df dc d9 |........|........|
|00000c30| d9 1d 1d 1d 17 17 17 17 | 17 17 1d d9 dc d9 d9 dc |........|........|
|00000c40| df 00 00 00 00 00 00 00 | 00 00 00 00 00 df dc dc |........|........|
|00000c50| dc db d9 d9 1d 1d 1d 17 | 17 1d d9 dc d9 1d d9 dc |........|........|
|00000c60| df 00 00 00 00 00 00 00 | 00 00 00 00 00 df dc d9 |........|........|
|00000c70| db dc dc dc db d9 d9 1d | 1d d9 dc d9 1d 1d d9 dc |........|........|
|00000c80| df 00 00 00 00 00 00 00 | 00 00 00 00 00 df dc d9 |........|........|
|00000c90| 1d d9 d9 db dc dc dc db | d9 dc d9 1d 17 1d d9 dc |........|........|
|00000ca0| df f9 f9 00 00 00 00 00 | 00 00 00 00 00 df dc d9 |........|........|
|00000cb0| 1d 1d 1d 1d d9 d9 db dc | dc d9 1d 17 17 1d d9 dc |........|........|
|00000cc0| df fc f9 f9 00 00 00 00 | 00 00 00 00 00 df dc d9 |........|........|
|00000cd0| 1d 17 17 17 1d 1d 1d d9 | dc d9 1d 17 17 1d d9 dc |........|........|
|00000ce0| df fc fc f9 00 00 00 00 | 00 00 00 00 00 df dc d9 |........|........|
|00000cf0| 1d 17 17 17 17 17 1d d9 | dc d9 1d 17 17 1d d9 dc |........|........|
|00000d00| df fc f9 f9 00 00 00 00 | 00 00 00 00 00 df dc d9 |........|........|
|00000d10| 1d 17 17 17 17 17 1d d9 | dc d9 1d 17 1d d9 dc df |........|........|
|00000d20| fc f9 f9 00 00 00 00 00 | 00 00 00 00 00 df dc d9 |........|........|
|00000d30| d9 1d 1d 1d 17 17 1d d9 | dc d9 1d 1d d9 dc df fc |........|........|
|00000d40| f9 f9 00 00 00 00 00 00 | 00 00 00 00 00 df dc dc |........|........|
|00000d50| dc d9 d9 d9 1d 1d 1d d9 | dc d9 1d d9 dc df fc f9 |........|........|
|00000d60| f9 00 00 00 00 00 00 00 | 00 00 00 00 00 00 fa dd |........|........|
|00000d70| df dc dc dc d9 d9 d9 d9 | dc d9 d9 dc df fc f9 f9 |........|........|
|00000d80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d90| 00 fa dd df dc dc dc d9 | dc d9 dc df fc f9 f9 00 |........|........|
|00000da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000db0| 00 00 00 00 fa dd df dc | dc dc df fc f9 f9 00 00 |........|........|
|00000dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000dd0| 00 00 00 00 00 00 00 fa | df df f9 f9 f9 00 00 00 |........|........|
|00000de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e20| 00 00 00 00 00 00 00 00 | 45 6e 64 47 49 6e 74 20 |........|EndGInt |
|00000e30| 00 00 00 0a 65 6c 65 6d | 47 72 75 70 00 00 01 1c |....elem|Grup....|
|00000e40| 00 00 00 0b 74 79 70 65 | 49 6e 74 20 69 63 73 38 |....type|Int ics8|
|00000e50| 64 61 74 61 53 74 72 6e | 00 00 01 00 00 00 00 00 |dataStrn|........|
|00000e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ea0| 00 00 df fa 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000eb0| 00 df dc df fa df fa 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ec0| df dc 1d d9 db dc df fa | df 00 00 00 00 00 00 df |........|........|
|00000ed0| dc 1d 17 17 17 1d dc dc | df 00 00 00 00 00 df dc |........|........|
|00000ee0| dc d9 1d 1d 1d dc dc dc | df 00 00 00 00 00 df dc |........|........|
|00000ef0| dc dc dc dc dc dc 1d dc | f9 f9 00 00 00 00 df dc |........|........|
|00000f00| 1d 1d d9 dc dc 1d 1d dc | fc fc 00 00 00 00 df dc |........|........|
|00000f10| 1d 17 17 d9 dc 1d d9 df | fc f9 00 00 00 00 df dc |........|........|
|00000f20| dc d9 1d d9 dc d9 df fc | f9 00 00 00 00 00 00 fa |........|........|
|00000f30| fa df dc dc dc df fc f9 | 00 00 00 00 00 00 00 00 |........|........|
|00000f40| 00 00 fa fa df fc f9 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 45 6e 64 47 |........|....EndG|
|00000f60| 49 6e 74 20 00 00 00 0b | 65 6c 65 6d 47 72 75 70 |Int ....|elemGrup|
|00000f70| 00 00 01 1c 00 00 00 0c | 74 79 70 65 49 6e 74 20 |........|typeInt |
|00000f80| 49 43 4e 23 64 61 74 61 | 53 74 72 6e 00 00 01 00 |ICN#data|Strn....|
|00000f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fb0| 00 00 00 00 00 0e 00 00 | 00 1f c0 00 00 3f f8 00 |........|.....?..|
|00000fc0| 00 7f ff 00 00 f1 ff 80 | 01 e0 3f 80 03 c0 1f 80 |........|..?.....|
|00000fd0| 07 f0 3f 80 07 fe 7f 80 | 07 ff ff 80 07 ff f7 80 |..?.....|........|
|00000fe0| 07 ff e7 c0 07 8f e7 e0 | 07 83 e7 c0 07 83 ef 80 |........|........|
|00000ff0| 07 f3 ff 00 07 ff fe 00 | 03 ff fc 00 00 7f f8 00 |........|........|
|00001000| 00 0f f0 00 00 01 c0 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001030| 00 00 00 00 00 0e 00 00 | 00 1f c0 00 00 3f f8 00 |........|.....?..|
|00001040| 00 7f ff 00 00 ff ff 80 | 01 ff ff 80 03 ff ff 80 |........|........|
|00001050| 07 ff ff 80 07 ff ff 80 | 07 ff ff 80 07 ff ff e0 |........|........|
|00001060| 07 ff ff f0 07 ff ff f0 | 07 ff ff f0 07 ff ff e0 |........|........|
|00001070| 07 ff ff c0 07 ff ff 80 | 03 ff ff 00 00 7f fe 00 |........|........|
|00001080| 00 0f fc 00 00 01 f8 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001090| 45 6e 64 47 49 6e 74 20 | 00 00 00 0c 65 6c 65 6d |EndGInt |....elem|
|000010a0| 47 72 75 70 00 00 00 5c | 00 00 00 0d 74 79 70 65 |Grup...\|....type|
|000010b0| 49 6e 74 20 69 63 73 23 | 64 61 74 61 53 74 72 6e |Int ics#|dataStrn|
|000010c0| 00 00 00 40 00 00 00 00 | 00 00 00 00 03 00 07 e0 |...@....|........|
|000010d0| 0f f8 1c 78 3f f8 3f f0 | 3f fc 39 f8 3f f0 1f e0 |...x?.?.|?.9.?...|
|000010e0| 03 c0 00 00 00 00 00 00 | 00 00 00 00 03 00 07 e0 |........|........|
|000010f0| 0f f8 1f f8 3f f8 3f fc | 3f fc 3f fc 3f f8 1f f0 |....?.?.|?.?.?...|
|00001100| 03 e0 00 00 45 6e 64 47 | 49 6e 74 20 00 00 00 0d |....EndG|Int ....|
|00001110| 45 6e 64 47 49 6e 74 20 | 00 00 00 09 45 6e 64 47 |EndGInt |....EndG|
|00001120| 49 6e 74 20 00 00 00 08 | 50 61 64 6e 50 61 64 6e |Int ....|PadnPadn|
|00001130| 00 00 02 e0 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |....****|********|
|00001140| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001150| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001160| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001170| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001180| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001190| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000011a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000011b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000011c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000011d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000011e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000011f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001200| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001210| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001220| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001230| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001240| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001250| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001260| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001270| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001280| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001290| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000012a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000012b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000012c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000012d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000012e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000012f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001300| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001310| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001320| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001330| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001350| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001360| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001370| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001380| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001390| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000013a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000013b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000013c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000013d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000013e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000013f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001400| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001410| 2a 2a 2a 2a 42 6c 6f 6b | 70 56 65 77 00 00 00 01 |****Blok|pVew....|
|00001420| 00 00 00 00 00 00 58 00 | 00 00 00 00 f3 a7 59 d8 |......X.|......Y.|
|00001430| 33 93 f3 8c 4e 61 6d 65 | 53 74 72 6e 00 00 00 07 |3...Name|Strn....|
|00001440| 4d 61 69 6e 57 49 4e 00 | 43 6f 6e 74 49 6e 74 20 |MainWIN.|ContInt |
|00001450| 00 00 00 00 72 45 64 74 | 52 65 63 74 00 00 00 1d |....rEdt|Rect....|
|00001460| 00 00 00 41 00 00 02 b9 | 00 00 01 54 6c 73 74 48 |...A....|...TlstH|
|00001470| 49 6e 74 20 00 00 00 b4 | 6c 73 74 56 49 6e 74 20 |Int ....|lstVInt |
|00001480| 00 00 00 4e 65 53 70 74 | 49 6e 74 20 00 00 00 d7 |...NeSpt|Int ....|
|00001490| 50 44 65 66 47 72 75 70 | 00 00 00 28 00 00 00 0e |PDefGrup|...(....|
|000014a0| 6e 61 6d 65 53 74 72 6e | 00 00 00 04 4e 61 6d 65 |nameStrn|....Name|
|000014b0| 50 56 61 6c 53 74 72 6e | 00 00 00 07 4d 61 69 6e |PValStrn|....Main|
|000014c0| 57 49 4e 00 45 6e 64 47 | 49 6e 74 20 00 00 00 0e |WIN.EndG|Int ....|
|000014d0| 50 44 65 66 47 72 75 70 | 00 00 00 28 00 00 00 0f |PDefGrup|...(....|
|000014e0| 6e 61 6d 65 53 74 72 6e | 00 00 00 05 46 72 61 6d |nameStrn|....Fram|
|000014f0| 65 00 00 00 50 56 61 6c | 53 74 72 6e 00 00 00 01 |e...PVal|Strn....|
|00001500| 30 00 00 00 45 6e 64 47 | 49 6e 74 20 00 00 00 0f |0...EndG|Int ....|
|00001510| 50 44 65 66 47 72 75 70 | 00 00 00 30 00 00 00 10 |PDefGrup|...0....|
|00001520| 6e 61 6d 65 53 74 72 6e | 00 00 00 0c 48 61 73 42 |nameStrn|....HasB|
|00001530| 61 63 6b 43 6f 6c 6f 72 | 50 56 61 6c 53 74 72 6e |ackColor|PValStrn|
|00001540| 00 00 00 05 46 61 6c 73 | 65 00 00 00 45 6e 64 47 |....Fals|e...EndG|
|00001550| 49 6e 74 20 00 00 00 10 | 50 44 65 66 47 72 75 70 |Int ....|PDefGrup|
|00001560| 00 00 00 30 00 00 00 11 | 6e 61 6d 65 53 74 72 6e |...0....|nameStrn|
|00001570| 00 00 00 09 42 61 63 6b | 43 6f 6c 6f 72 00 00 00 |....Back|Color...|
|00001580| 50 56 61 6c 53 74 72 6e | 00 00 00 08 31 36 37 37 |PValStrn|....1677|
|00001590| 37 32 31 35 45 6e 64 47 | 49 6e 74 20 00 00 00 11 |7215EndG|Int ....|
|000015a0| 50 44 65 66 47 72 75 70 | 00 00 00 28 00 00 00 12 |PDefGrup|...(....|
|000015b0| 6e 61 6d 65 53 74 72 6e | 00 00 00 08 42 61 63 6b |nameStrn|....Back|
|000015c0| 64 72 6f 70 50 56 61 6c | 53 74 72 6e 00 00 00 01 |dropPVal|Strn....|
|000015d0| 30 00 00 00 45 6e 64 47 | 49 6e 74 20 00 00 00 12 |0...EndG|Int ....|
|000015e0| 50 44 65 66 47 72 75 70 | 00 00 00 2c 00 00 00 13 |PDefGrup|...,....|
|000015f0| 6e 61 6d 65 53 74 72 6e | 00 00 00 05 54 69 74 6c |nameStrn|....Titl|
|00001600| 65 00 00 00 50 56 61 6c | 53 74 72 6e 00 00 00 07 |e...PVal|Strn....|
|00001610| 4d 6f 64 20 42 6f 74 00 | 45 6e 64 47 49 6e 74 20 |Mod Bot.|EndGInt |
|00001620| 00 00 00 13 50 44 65 66 | 47 72 75 70 00 00 00 2c |....PDef|Grup...,|
|00001630| 00 00 00 14 6e 61 6d 65 | 53 74 72 6e 00 00 00 07 |....name|Strn....|
|00001640| 56 69 73 69 62 6c 65 00 | 50 56 61 6c 53 74 72 6e |Visible.|PValStrn|
|00001650| 00 00 00 05 46 61 6c 73 | 65 00 00 00 45 6e 64 47 |....Fals|e...EndG|
|00001660| 49 6e 74 20 00 00 00 14 | 50 44 65 66 47 72 75 70 |Int ....|PDefGrup|
|00001670| 00 00 00 30 00 00 00 15 | 6e 61 6d 65 53 74 72 6e |...0....|nameStrn|
|00001680| 00 00 00 0a 46 75 6c 6c | 53 63 72 65 65 6e 00 00 |....Full|Screen..|
|00001690| 50 56 61 6c 53 74 72 6e | 00 00 00 05 46 61 6c 73 |PValStrn|....Fals|
|000016a0| 65 00 00 00 45 6e 64 47 | 49 6e 74 20 00 00 00 15 |e...EndG|Int ....|
|000016b0| 50 44 65 66 47 72 75 70 | 00 00 00 30 00 00 00 16 |PDefGrup|...0....|
|000016c0| 6e 61 6d 65 53 74 72 6e | 00 00 00 0e 4d 65 6e 75 |nameStrn|....Menu|
|000016d0| 42 61 72 56 69 73 69 62 | 6c 65 00 00 50 56 61 6c |BarVisib|le..PVal|
|000016e0| 53 74 72 6e 00 00 00 04 | 54 72 75 65 45 6e 64 47 |Strn....|TrueEndG|
|000016f0| 49 6e 74 20 00 00 00 16 | 50 44 65 66 47 72 75 70 |Int ....|PDefGrup|
|00001700| 00 00 00 28 00 00 00 17 | 6e 61 6d 65 53 74 72 6e |...(....|nameStrn|
|00001710| 00 00 00 08 43 6c 6f 73 | 65 42 6f 78 50 56 61 6c |....Clos|eBoxPVal|
|00001720| 53 74 72 6e 00 00 00 04 | 54 72 75 65 45 6e 64 47 |Strn....|TrueEndG|
|00001730| 49 6e 74 20 00 00 00 17 | 50 44 65 66 47 72 75 70 |Int ....|PDefGrup|
|00001740| 00 00 00 2c 00 00 00 18 | 6e 61 6d 65 53 74 72 6e |...,....|nameStrn|
|00001750| 00 00 00 08 47 72 6f 77 | 49 63 6f 6e 50 56 61 6c |....Grow|IconPVal|
|00001760| 53 74 72 6e 00 00 00 05 | 46 61 6c 73 65 00 00 00 |Strn....|False...|
|00001770| 45 6e 64 47 49 6e 74 20 | 00 00 00 18 50 44 65 66 |EndGInt |....PDef|
|00001780| 47 72 75 70 00 00 00 2c | 00 00 00 19 6e 61 6d 65 |Grup...,|....name|
|00001790| 53 74 72 6e 00 00 00 08 | 5a 6f 6f 6d 49 63 6f 6e |Strn....|ZoomIcon|
|000017a0| 50 56 61 6c 53 74 72 6e | 00 00 00 05 46 61 6c 73 |PValStrn|....Fals|
|000017b0| 65 00 00 00 45 6e 64 47 | 49 6e 74 20 00 00 00 19 |e...EndG|Int ....|
|000017c0| 50 44 65 66 47 72 75 70 | 00 00 00 28 00 00 00 1a |PDefGrup|...(....|
|000017d0| 6e 61 6d 65 53 74 72 6e | 00 00 00 0b 42 61 6c 6c |nameStrn|....Ball|
|000017e0| 6f 6f 6e 48 65 6c 70 00 | 50 56 61 6c 53 74 72 6e |oonHelp.|PValStrn|
|000017f0| 00 00 00 00 45 6e 64 47 | 49 6e 74 20 00 00 00 1a |....EndG|Int ....|
|00001800| 50 44 65 66 47 72 75 70 | 00 00 00 2c 00 00 00 1b |PDefGrup|...,....|
|00001810| 6e 61 6d 65 53 74 72 6e | 00 00 00 09 4d 61 63 50 |nameStrn|....MacP|
|00001820| 72 6f 63 49 44 00 00 00 | 50 56 61 6c 53 74 72 6e |rocID...|PValStrn|
|00001830| 00 00 00 01 30 00 00 00 | 45 6e 64 47 49 6e 74 20 |....0...|EndGInt |
|00001840| 00 00 00 1b 50 44 65 66 | 47 72 75 70 00 00 00 2c |....PDef|Grup...,|
|00001850| 00 00 00 1c 6e 61 6d 65 | 53 74 72 6e 00 00 00 09 |....name|Strn....|
|00001860| 50 6c 61 63 65 6d 65 6e | 74 00 00 00 50 56 61 6c |Placemen|t...PVal|
|00001870| 53 74 72 6e 00 00 00 01 | 30 00 00 00 45 6e 64 47 |Strn....|0...EndG|
|00001880| 49 6e 74 20 00 00 00 1c | 50 44 65 66 47 72 75 70 |Int ....|PDefGrup|
|00001890| 00 00 00 28 00 00 00 1d | 6e 61 6d 65 53 74 72 6e |...(....|nameStrn|
|000018a0| 00 00 00 05 57 69 64 74 | 68 00 00 00 50 56 61 6c |....Widt|h...PVal|
|000018b0| 53 74 72 6e 00 00 00 03 | 31 33 36 00 45 6e 64 47 |Strn....|136.EndG|
|000018c0| 49 6e 74 20 00 00 00 1d | 50 44 65 66 47 72 75 70 |Int ....|PDefGrup|
|000018d0| 00 00 00 28 00 00 00 1e | 6e 61 6d 65 53 74 72 6e |...(....|nameStrn|
|000018e0| 00 00 00 06 48 65 69 67 | 68 74 00 00 50 56 61 6c |....Heig|ht..PVal|
|000018f0| 53 74 72 6e 00 00 00 02 | 39 34 00 00 45 6e 64 47 |Strn....|94..EndG|
|00001900| 49 6e 74 20 00 00 00 1e | 50 44 65 66 47 72 75 70 |Int ....|PDefGrup|
|00001910| 00 00 00 28 00 00 00 1f | 6e 61 6d 65 53 74 72 6e |...(....|nameStrn|
|00001920| 00 00 00 08 4d 69 6e 57 | 69 64 74 68 50 56 61 6c |....MinW|idthPVal|
|00001930| 53 74 72 6e 00 00 00 02 | 36 34 00 00 45 6e 64 47 |Strn....|64..EndG|
|00001940| 49 6e 74 20 00 00 00 1f | 50 44 65 66 47 72 75 70 |Int ....|PDefGrup|
|00001950| 00 00 00 2c 00 00 00 20 | 6e 61 6d 65 53 74 72 6e |...,... |nameStrn|
|00001960| 00 00 00 09 4d 69 6e 48 | 65 69 67 68 74 00 00 00 |....MinH|eight...|
|00001970| 50 56 61 6c 53 74 72 6e | 00 00 00 02 36 34 00 00 |PValStrn|....64..|
|00001980| 45 6e 64 47 49 6e 74 20 | 00 00 00 20 50 44 65 66 |EndGInt |... PDef|
|00001990| 47 72 75 70 00 00 00 2c | 00 00 00 21 6e 61 6d 65 |Grup...,|...!name|
|000019a0| 53 74 72 6e 00 00 00 08 | 4d 61 78 57 69 64 74 68 |Strn....|MaxWidth|
|000019b0| 50 56 61 6c 53 74 72 6e | 00 00 00 05 33 32 30 30 |PValStrn|....3200|
|000019c0| 30 00 00 00 45 6e 64 47 | 49 6e 74 20 00 00 00 21 |0...EndG|Int ...!|
|000019d0| 50 44 65 66 47 72 75 70 | 00 00 00 30 00 00 00 22 |PDefGrup|...0..."|
|000019e0| 6e 61 6d 65 53 74 72 6e | 00 00 00 09 4d 61 78 48 |nameStrn|....MaxH|
|000019f0| 65 69 67 68 74 00 00 00 | 50 56 61 6c 53 74 72 6e |eight...|PValStrn|
|00001a00| 00 00 00 05 33 32 30 30 | 30 00 00 00 45 6e 64 47 |....3200|0...EndG|
|00001a10| 49 6e 74 20 00 00 00 22 | 46 44 65 66 47 72 75 70 |Int ..."|FDefGrup|
|00001a20| 00 00 05 7c 00 00 00 23 | 4e 61 6d 65 53 74 72 6e |...|...#|NameStrn|
|00001a30| 00 00 00 07 4d 61 69 6e | 57 49 4e 00 53 69 7a 65 |....Main|WIN.Size|
|00001a40| 49 6e 74 20 00 00 00 94 | 53 75 70 72 53 74 72 6e |Int ....|SuprStrn|
|00001a50| 00 00 00 06 44 69 61 6c | 6f 67 00 00 62 4e 74 72 |....Dial|og..bNtr|
|00001a60| 49 6e 74 20 00 00 00 00 | 50 72 6f 70 47 72 75 70 |Int ....|PropGrup|
|00001a70| 00 00 00 34 00 00 00 24 | 64 65 63 6c 53 74 72 6e |...4...$|declStrn|
|00001a80| 00 00 00 16 49 67 6e 6f | 72 65 52 65 70 6c 79 20 |....Igno|reReply |
|00001a90| 61 73 20 69 6e 74 65 67 | 65 72 00 00 66 6c 61 67 |as integ|er..flag|
|00001aa0| 49 6e 74 20 00 00 00 00 | 45 6e 64 47 49 6e 74 20 |Int ....|EndGInt |
|00001ab0| 00 00 00 24 50 72 6f 70 | 47 72 75 70 00 00 00 2c |...$Prop|Grup...,|
|00001ac0| 00 00 00 25 64 65 63 6c | 53 74 72 6e 00 00 00 10 |...%decl|Strn....|
|00001ad0| 4d 79 4e 61 6d 65 20 61 | 73 20 73 74 72 69 6e 67 |MyName a|s string|
|00001ae0| 66 6c 61 67 49 6e 74 20 | 00 00 00 00 45 6e 64 47 |flagInt |....EndG|
|00001af0| 49 6e 74 20 00 00 00 25 | 50 72 6f 70 47 72 75 70 |Int ...%|PropGrup|
|00001b00| 00 00 00 30 00 00 00 26 | 64 65 63 6c 53 74 72 6e |...0...&|declStrn|
|00001b10| 00 00 00 12 70 63 68 61 | 74 73 28 30 29 20 61 73 |....pcha|ts(0) as|
|00001b20| 20 70 63 68 61 74 00 00 | 66 6c 61 67 49 6e 74 20 | pchat..|flagInt |
|00001b30| 00 00 00 00 45 6e 64 47 | 49 6e 74 20 00 00 00 26 |....EndG|Int ...&|
|00001b40| 50 72 6f 70 47 72 75 70 | 00 00 00 2c 00 00 00 27 |PropGrup|...,...'|
|00001b50| 64 65 63 6c 53 74 72 6e | 00 00 00 0e 61 64 64 79 |declStrn|....addy|
|00001b60| 20 61 73 20 73 74 72 69 | 6e 67 00 00 66 6c 61 67 | as stri|ng..flag|
|00001b70| 49 6e 74 20 00 00 00 00 | 45 6e 64 47 49 6e 74 20 |Int ....|EndGInt |
|00001b80| 00 00 00 27 50 72 6f 70 | 47 72 75 70 00 00 00 3c |...'Prop|Grup...<|
|00001b90| 00 00 00 28 64 65 63 6c | 53 74 72 6e 00 00 00 20 |...(decl|Strn... |
|00001ba0| 6d 79 63 6f 6e 6e 65 63 | 74 69 6f 6e 77 69 6e 20 |myconnec|tionwin |
|00001bb0| 61 73 20 63 6f 6e 6e 65 | 63 74 69 6f 6e 77 69 6e |as conne|ctionwin|
|00001bc0| 66 6c 61 67 49 6e 74 20 | 00 00 00 00 45 6e 64 47 |flagInt |....EndG|
|00001bd0| 49 6e 74 20 00 00 00 28 | 50 72 6f 70 47 72 75 70 |Int ...(|PropGrup|
|00001be0| 00 00 00 2c 00 00 00 29 | 64 65 63 6c 53 74 72 6e |...,...)|declStrn|
|00001bf0| 00 00 00 0d 6c 6f 67 20 | 61 73 20 73 74 72 69 6e |....log |as strin|
|00001c00| 67 00 00 00 66 6c 61 67 | 49 6e 74 20 00 00 00 00 |g...flag|Int ....|
|00001c10| 45 6e 64 47 49 6e 74 20 | 00 00 00 29 50 72 6f 70 |EndGInt |...)Prop|
|00001c20| 47 72 75 70 00 00 00 30 | 00 00 00 2a 64 65 63 6c |Grup...0|...*decl|
|00001c30| 53 74 72 6e 00 00 00 11 | 6d 79 69 63 6f 6e 20 61 |Strn....|myicon a|
|00001c40| 73 20 69 6e 74 65 67 65 | 72 00 00 00 66 6c 61 67 |s intege|r...flag|
|00001c50| 49 6e 74 20 00 00 00 00 | 45 6e 64 47 49 6e 74 20 |Int ....|EndGInt |
|00001c60| 00 00 00 2a 50 72 6f 70 | 47 72 75 70 00 00 00 2c |...*Prop|Grup...,|
|00001c70| 00 00 00 2b 64 65 63 6c | 53 74 72 6e 00 00 00 10 |...+decl|Strn....|
|00001c80| 6d 6d 20 61 73 20 6c 61 | 73 74 6d 65 6d 6f 72 79 |mm as la|stmemory|
|00001c90| 66 6c 61 67 49 6e 74 20 | 00 00 00 00 45 6e 64 47 |flagInt |....EndG|
|00001ca0| 49 6e 74 20 00 00 00 2b | 50 72 6f 70 47 72 75 70 |Int ...+|PropGrup|
|00001cb0| 00 00 00 2c 00 00 00 2c | 64 65 63 6c 53 74 72 6e |...,...,|declStrn|
|00001cc0| 00 00 00 10 6d 79 6e 61 | 6d 65 20 61 73 20 73 74 |....myna|me as st|
|00001cd0| 72 69 6e 67 66 6c 61 67 | 49 6e 74 20 00 00 00 00 |ringflag|Int ....|
|00001ce0| 45 6e 64 47 49 6e 74 20 | 00 00 00 2c 4d 65 74 68 |EndGInt |...,Meth|
|00001cf0| 47 72 75 70 00 00 00 dc | 00 00 00 2d 6e 61 6d 65 |Grup....|...-name|
|00001d00| 53 74 72 6e 00 00 00 0c | 44 6f 44 69 73 63 6f 6e |Strn....|DoDiscon|
|00001d10| 6e 65 63 74 70 61 72 6d | 53 74 72 6e 00 00 00 00 |nectparm|Strn....|
|00001d20| 72 73 6c 74 53 74 72 6e | 00 00 00 00 66 6c 61 67 |rsltStrn|....flag|
|00001d30| 49 6e 74 20 00 00 00 00 | 73 6f 72 63 47 72 75 70 |Int ....|sorcGrup|
|00001d40| 00 00 00 84 00 00 00 2e | 73 74 73 72 49 6e 74 20 |........|stsrInt |
|00001d50| 00 00 00 01 73 74 73 63 | 49 6e 74 20 00 00 00 0d |....stsc|Int ....|
|00001d60| 6e 64 73 72 49 6e 74 20 | 00 00 00 01 6e 64 73 63 |ndsrInt |....ndsc|
|00001d70| 49 6e 74 20 00 00 00 0d | 73 72 63 6c 53 74 72 6e |Int ....|srclStrn|
|00001d80| 00 00 00 12 53 75 62 20 | 44 6f 44 69 73 63 6f 6e |....Sub |DoDiscon|
|00001d90| 6e 65 63 74 28 29 00 00 | 73 72 63 6c 53 74 72 6e |nect()..|srclStrn|
|00001da0| 00 00 00 0d 48 53 2e 44 | 69 73 63 6f 6e 6e 65 63 |....HS.D|isconnec|
|00001db0| 74 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 07 |t...srcl|Strn....|
|00001dc0| 45 6e 64 20 53 75 62 00 | 45 6e 64 47 49 6e 74 20 |End Sub.|EndGInt |
|00001dd0| 00 00 00 2e 45 6e 64 47 | 49 6e 74 20 00 00 00 2d |....EndG|Int ...-|
|00001de0| 48 49 6e 73 47 72 75 70 | 00 00 00 b0 00 00 00 2f |HInsGrup|......./|
|00001df0| 6e 61 6d 65 53 74 72 6e | 00 00 00 0f 45 6e 61 62 |nameStrn|....Enab|
|00001e00| 6c 65 4d 65 6e 75 49 74 | 65 6d 73 00 73 6f 72 63 |leMenuIt|ems.sorc|
|00001e10| 47 72 75 70 00 00 00 78 | 00 00 00 30 73 74 73 72 |Grup...x|...0stsr|
|00001e20| 49 6e 74 20 00 00 00 01 | 73 74 73 63 49 6e 74 20 |Int ....|stscInt |
|00001e30| 00 00 00 00 6e 64 73 72 | 49 6e 74 20 00 00 00 01 |....ndsr|Int ....|
|00001e40| 6e 64 73 63 49 6e 74 20 | 00 00 00 00 73 72 63 6c |ndscInt |....srcl|
|00001e50| 53 74 72 6e 00 00 00 15 | 53 75 62 20 45 6e 61 62 |Strn....|Sub Enab|
|00001e60| 6c 65 4d 65 6e 75 49 74 | 65 6d 73 28 29 00 00 00 |leMenuIt|ems()...|
|00001e70| 73 72 63 6c 53 74 72 6e | 00 00 00 00 73 72 63 6c |srclStrn|....srcl|
|00001e80| 53 74 72 6e 00 00 00 07 | 45 6e 64 20 53 75 62 00 |Strn....|End Sub.|
|00001e90| 45 6e 64 47 49 6e 74 20 | 00 00 00 30 45 6e 64 47 |EndGInt |...0EndG|
|00001ea0| 49 6e 74 20 00 00 00 2f | 48 49 6e 73 47 72 75 70 |Int .../|HInsGrup|
|00001eb0| 00 00 00 e0 00 00 00 31 | 6e 61 6d 65 53 74 72 6e |.......1|nameStrn|
|00001ec0| 00 00 00 04 4f 70 65 6e | 73 6f 72 63 47 72 75 70 |....Open|sorcGrup|
|00001ed0| 00 00 00 b4 00 00 00 32 | 73 74 73 72 49 6e 74 20 |.......2|stsrInt |
|00001ee0| 00 00 00 02 73 74 73 63 | 49 6e 74 20 00 00 00 19 |....stsc|Int ....|
|00001ef0| 6e 64 73 72 49 6e 74 20 | 00 00 00 02 6e 64 73 63 |ndsrInt |....ndsc|
|00001f00| 49 6e 74 20 00 00 00 19 | 73 72 63 6c 53 74 72 6e |Int ....|srclStrn|
|00001f10| 00 00 00 0a 53 75 62 20 | 4f 70 65 6e 28 29 00 00 |....Sub |Open()..|
|00001f20| 73 72 63 6c 53 74 72 6e | 00 00 00 11 6d 6d 3d 6e |srclStrn|....mm=n|
|00001f30| 65 77 20 6c 61 73 74 6d | 65 6d 6f 72 79 00 00 00 |ew lastm|emory...|
|00001f40| 73 72 63 6c 53 74 72 6e | 00 00 00 25 6d 79 6e 61 |srclStrn|...%myna|
|00001f50| 6d 65 3d 22 a5 54 68 65 | 20 4d 6f 64 20 42 6f 74 |me=".The| Mod Bot|
|00001f60| a5 20 20 20 5b 43 68 61 | 74 20 52 6f 6f 6d 73 5d |.   [Cha|t Rooms]|
|00001f70| 22 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 07 |"...srcl|Strn....|
|00001f80| 45 6e 64 20 53 75 62 00 | 45 6e 64 47 49 6e 74 20 |End Sub.|EndGInt |
|00001f90| 00 00 00 32 45 6e 64 47 | 49 6e 74 20 00 00 00 31 |...2EndG|Int ...1|
|00001fa0| 45 6e 64 47 49 6e 74 20 | 00 00 00 23 43 42 68 76 |EndGInt |...#CBhv|
|00001fb0| 47 72 75 70 00 00 3c 38 | 00 00 00 33 4e 61 6d 65 |Grup..<8|...3Name|
|00001fc0| 53 74 72 6e 00 00 00 00 | 53 69 7a 65 49 6e 74 20 |Strn....|SizeInt |
|00001fd0| 00 00 01 0c 53 75 70 72 | 53 74 72 6e 00 00 00 09 |....Supr|Strn....|
|00001fe0| 48 6f 74 53 6f 63 6b 65 | 74 00 00 00 62 4e 74 72 |HotSocke|t...bNtr|
|00001ff0| 49 6e 74 20 00 00 00 00 | 48 49 6e 73 47 72 75 70 |Int ....|HInsGrup|
|00002000| 00 00 00 d8 00 00 00 34 | 6e 61 6d 65 53 74 72 6e |.......4|nameStrn|
|00002010| 00 00 00 0e 4f 70 65 6e | 55 73 65 72 46 61 69 6c |....Open|UserFail|
|00002020| 65 64 00 00 73 6f 72 63 | 47 72 75 70 00 00 00 a0 |ed..sorc|Grup....|
|00002030| 00 00 00 35 73 74 73 72 | 49 6e 74 20 00 00 00 01 |...5stsr|Int ....|
|00002040| 73 74 73 63 49 6e 74 20 | 00 00 00 00 6e 64 73 72 |stscInt |....ndsr|
|00002050| 49 6e 74 20 00 00 00 01 | 6e 64 73 63 49 6e 74 20 |Int ....|ndscInt |
|00002060| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 3d |....srcl|Strn...=|
|00002070| 53 75 62 20 4f 70 65 6e | 55 73 65 72 46 61 69 6c |Sub Open|UserFail|
|00002080| 65 64 28 54 61 73 6b 49 | 44 20 61 73 20 69 6e 74 |ed(TaskI|D as int|
|00002090| 65 67 65 72 2c 20 45 72 | 72 6f 72 4d 65 73 73 61 |eger, Er|rorMessa|
|000020a0| 67 65 20 61 73 20 73 74 | 72 69 6e 67 29 00 00 00 |ge as st|ring)...|
|000020b0| 73 72 63 6c 53 74 72 6e | 00 00 00 00 73 72 63 6c |srclStrn|....srcl|
|000020c0| 53 74 72 6e 00 00 00 07 | 45 6e 64 20 53 75 62 00 |Strn....|End Sub.|
|000020d0| 45 6e 64 47 49 6e 74 20 | 00 00 00 35 45 6e 64 47 |EndGInt |...5EndG|
|000020e0| 49 6e 74 20 00 00 00 34 | 48 49 6e 73 47 72 75 70 |Int ...4|HInsGrup|
|000020f0| 00 00 01 0c 00 00 00 36 | 6e 61 6d 65 53 74 72 6e |.......6|nameStrn|
|00002100| 00 00 00 0f 4f 70 65 6e | 55 73 65 72 53 75 63 63 |....Open|UserSucc|
|00002110| 65 73 73 00 73 6f 72 63 | 47 72 75 70 00 00 00 d4 |ess.sorc|Grup....|
|00002120| 00 00 00 37 73 74 73 72 | 49 6e 74 20 00 00 00 01 |...7stsr|Int ....|
|00002130| 73 74 73 63 49 6e 74 20 | 00 00 00 00 6e 64 73 72 |stscInt |....ndsr|
|00002140| 49 6e 74 20 00 00 00 01 | 6e 64 73 63 49 6e 74 20 |Int ....|ndscInt |
|00002150| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 72 |....srcl|Strn...r|
|00002160| 53 75 62 20 4f 70 65 6e | 55 73 65 72 53 75 63 63 |Sub Open|UserSucc|
|00002170| 65 73 73 28 54 61 73 6b | 49 44 20 61 73 20 69 6e |ess(Task|ID as in|
|00002180| 74 65 67 65 72 2c 20 4e | 69 63 6b 6e 61 6d 65 20 |teger, N|ickname |
|00002190| 61 73 20 73 74 72 69 6e | 67 2c 20 4c 6f 67 69 6e |as strin|g, Login|
|000021a0| 20 61 73 20 73 74 72 69 | 6e 67 2c 20 50 61 73 73 | as stri|ng, Pass|
|000021b0| 77 6f 72 64 20 61 73 20 | 73 74 72 69 6e 67 2c 20 |word as |string, |
|000021c0| 50 72 69 76 73 20 61 73 | 20 50 72 69 76 54 79 70 |Privs as| PrivTyp|
|000021d0| 65 29 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |e)..srcl|Strn....|
|000021e0| 73 72 63 6c 53 74 72 6e | 00 00 00 07 45 6e 64 20 |srclStrn|....End |
|000021f0| 53 75 62 00 45 6e 64 47 | 49 6e 74 20 00 00 00 37 |Sub.EndG|Int ...7|
|00002200| 45 6e 64 47 49 6e 74 20 | 00 00 00 36 48 49 6e 73 |EndGInt |...6HIns|
|00002210| 47 72 75 70 00 00 00 d8 | 00 00 00 38 6e 61 6d 65 |Grup....|...8name|
|00002220| 53 74 72 6e 00 00 00 10 | 43 72 65 61 74 65 55 73 |Strn....|CreateUs|
|00002230| 65 72 46 61 69 6c 65 64 | 73 6f 72 63 47 72 75 70 |erFailed|sorcGrup|
|00002240| 00 00 00 a0 00 00 00 39 | 73 74 73 72 49 6e 74 20 |.......9|stsrInt |
|00002250| 00 00 00 01 73 74 73 63 | 49 6e 74 20 00 00 00 00 |....stsc|Int ....|
|00002260| 6e 64 73 72 49 6e 74 20 | 00 00 00 01 6e 64 73 63 |ndsrInt |....ndsc|
|00002270| 49 6e 74 20 00 00 00 00 | 73 72 63 6c 53 74 72 6e |Int ....|srclStrn|
|00002280| 00 00 00 3f 53 75 62 20 | 43 72 65 61 74 65 55 73 |...?Sub |CreateUs|
|00002290| 65 72 46 61 69 6c 65 64 | 28 54 61 73 6b 49 44 20 |erFailed|(TaskID |
|000022a0| 61 73 20 69 6e 74 65 67 | 65 72 2c 20 45 72 72 6f |as integ|er, Erro|
|000022b0| 72 4d 65 73 73 61 67 65 | 20 61 73 20 73 74 72 69 |rMessage| as stri|
|000022c0| 6e 67 29 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |ng).srcl|Strn....|
|000022d0| 73 72 63 6c 53 74 72 6e | 00 00 00 07 45 6e 64 20 |srclStrn|....End |
|000022e0| 53 75 62 00 45 6e 64 47 | 49 6e 74 20 00 00 00 39 |Sub.EndG|Int ...9|
|000022f0| 45 6e 64 47 49 6e 74 20 | 00 00 00 38 48 49 6e 73 |EndGInt |...8HIns|
|00002300| 47 72 75 70 00 00 00 c4 | 00 00 00 3a 6e 61 6d 65 |Grup....|...:name|
|00002310| 53 74 72 6e 00 00 00 11 | 43 72 65 61 74 65 55 73 |Strn....|CreateUs|
|00002320| 65 72 53 75 63 63 65 73 | 73 00 00 00 73 6f 72 63 |erSucces|s...sorc|
|00002330| 47 72 75 70 00 00 00 88 | 00 00 00 3b 73 74 73 72 |Grup....|...;stsr|
|00002340| 49 6e 74 20 00 00 00 01 | 73 74 73 63 49 6e 74 20 |Int ....|stscInt |
|00002350| 00 00 00 00 6e 64 73 72 | 49 6e 74 20 00 00 00 01 |....ndsr|Int ....|
|00002360| 6e 64 73 63 49 6e 74 20 | 00 00 00 00 73 72 63 6c |ndscInt |....srcl|
|00002370| 53 74 72 6e 00 00 00 28 | 53 75 62 20 43 72 65 61 |Strn...(|Sub Crea|
|00002380| 74 65 55 73 65 72 53 75 | 63 63 65 73 73 28 54 61 |teUserSu|ccess(Ta|
|00002390| 73 6b 49 44 20 61 73 20 | 69 6e 74 65 67 65 72 29 |skID as |integer)|
|000023a0| 73 72 63 6c 53 74 72 6e | 00 00 00 00 73 72 63 6c |srclStrn|....srcl|
|000023b0| 53 74 72 6e 00 00 00 07 | 45 6e 64 20 53 75 62 00 |Strn....|End Sub.|
|000023c0| 45 6e 64 47 49 6e 74 20 | 00 00 00 3b 45 6e 64 47 |EndGInt |...;EndG|
|000023d0| 49 6e 74 20 00 00 00 3a | 48 49 6e 73 47 72 75 70 |Int ...:|HInsGrup|
|000023e0| 00 00 00 d8 00 00 00 3c | 6e 61 6d 65 53 74 72 6e |.......<|nameStrn|
|000023f0| 00 00 00 0e 55 73 65 72 | 49 6e 66 6f 46 61 69 6c |....User|InfoFail|
|00002400| 65 64 00 00 73 6f 72 63 | 47 72 75 70 00 00 00 a0 |ed..sorc|Grup....|
|00002410| 00 00 00 3d 73 74 73 72 | 49 6e 74 20 00 00 00 01 |...=stsr|Int ....|
|00002420| 73 74 73 63 49 6e 74 20 | 00 00 00 00 6e 64 73 72 |stscInt |....ndsr|
|00002430| 49 6e 74 20 00 00 00 01 | 6e 64 73 63 49 6e 74 20 |Int ....|ndscInt |
|00002440| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 3d |....srcl|Strn...=|
|00002450| 53 75 62 20 55 73 65 72 | 49 6e 66 6f 46 61 69 6c |Sub User|InfoFail|
|00002460| 65 64 28 54 61 73 6b 49 | 44 20 61 73 20 69 6e 74 |ed(TaskI|D as int|
|00002470| 65 67 65 72 2c 20 45 72 | 72 6f 72 4d 65 73 73 61 |eger, Er|rorMessa|
|00002480| 67 65 20 61 73 20 73 74 | 72 69 6e 67 29 00 00 00 |ge as st|ring)...|
|00002490| 73 72 63 6c 53 74 72 6e | 00 00 00 00 73 72 63 6c |srclStrn|....srcl|
|000024a0| 53 74 72 6e 00 00 00 07 | 45 6e 64 20 53 75 62 00 |Strn....|End Sub.|
|000024b0| 45 6e 64 47 49 6e 74 20 | 00 00 00 3d 45 6e 64 47 |EndGInt |...=EndG|
|000024c0| 49 6e 74 20 00 00 00 3c | 48 49 6e 73 47 72 75 70 |Int ...<|HInsGrup|
|000024d0| 00 00 00 e8 00 00 00 3e | 6e 61 6d 65 53 74 72 6e |.......>|nameStrn|
|000024e0| 00 00 00 0f 55 73 65 72 | 49 6e 66 6f 53 75 63 63 |....User|InfoSucc|
|000024f0| 65 73 73 00 73 6f 72 63 | 47 72 75 70 00 00 00 b0 |ess.sorc|Grup....|
|00002500| 00 00 00 3f 73 74 73 72 | 49 6e 74 20 00 00 00 01 |...?stsr|Int ....|
|00002510| 73 74 73 63 49 6e 74 20 | 00 00 00 00 6e 64 73 72 |stscInt |....ndsr|
|00002520| 49 6e 74 20 00 00 00 01 | 6e 64 73 63 49 6e 74 20 |Int ....|ndscInt |
|00002530| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 4d |....srcl|Strn...M|
|00002540| 53 75 62 20 55 73 65 72 | 49 6e 66 6f 53 75 63 63 |Sub User|InfoSucc|
|00002550| 65 73 73 28 54 61 73 6b | 49 44 20 61 73 20 69 6e |ess(Task|ID as in|
|00002560| 74 65 67 65 72 2c 20 47 | 6f 74 49 6e 66 6f 20 61 |teger, G|otInfo a|
|00002570| 73 20 73 74 72 69 6e 67 | 2c 20 4e 69 63 6b 6e 61 |s string|, Nickna|
|00002580| 6d 65 20 61 73 20 73 74 | 72 69 6e 67 29 00 00 00 |me as st|ring)...|
|00002590| 73 72 63 6c 53 74 72 6e | 00 00 00 00 73 72 63 6c |srclStrn|....srcl|
|000025a0| 53 74 72 6e 00 00 00 07 | 45 6e 64 20 53 75 62 00 |Strn....|End Sub.|
|000025b0| 45 6e 64 47 49 6e 74 20 | 00 00 00 3f 45 6e 64 47 |EndGInt |...?EndG|
|000025c0| 49 6e 74 20 00 00 00 3e | 48 49 6e 73 47 72 75 70 |Int ...>|HInsGrup|
|000025d0| 00 00 00 cc 00 00 00 40 | 6e 61 6d 65 53 74 72 6e |.......@|nameStrn|
|000025e0| 00 00 00 0b 4e 65 77 73 | 53 75 63 63 65 73 73 00 |....News|Success.|
|000025f0| 73 6f 72 63 47 72 75 70 | 00 00 00 98 00 00 00 41 |sorcGrup|.......A|
|00002600| 73 74 73 72 49 6e 74 20 | 00 00 00 01 73 74 73 63 |stsrInt |....stsc|
|00002610| 49 6e 74 20 00 00 00 00 | 6e 64 73 72 49 6e 74 20 |Int ....|ndsrInt |
|00002620| 00 00 00 01 6e 64 73 63 | 49 6e 74 20 00 00 00 00 |....ndsc|Int ....|
|00002630| 73 72 63 6c 53 74 72 6e | 00 00 00 35 53 75 62 20 |srclStrn|...5Sub |
|00002640| 4e 65 77 73 53 75 63 63 | 65 73 73 28 54 61 73 6b |NewsSucc|ess(Task|
|00002650| 49 44 20 61 73 20 69 6e | 74 65 67 65 72 2c 20 47 |ID as in|teger, G|
|00002660| 6f 74 4e 65 77 73 20 61 | 73 20 73 74 72 69 6e 67 |otNews a|s string|
|00002670| 29 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |)...srcl|Strn....|
|00002680| 73 72 63 6c 53 74 72 6e | 00 00 00 07 45 6e 64 20 |srclStrn|....End |
|00002690| 53 75 62 00 45 6e 64 47 | 49 6e 74 20 00 00 00 41 |Sub.EndG|Int ...A|
|000026a0| 45 6e 64 47 49 6e 74 20 | 00 00 00 40 48 49 6e 73 |EndGInt |...@HIns|
|000026b0| 47 72 75 70 00 00 00 d8 | 00 00 00 42 6e 61 6d 65 |Grup....|...Bname|
|000026c0| 53 74 72 6e 00 00 00 10 | 44 65 6c 65 74 65 55 73 |Strn....|DeleteUs|
|000026d0| 65 72 46 61 69 6c 65 64 | 73 6f 72 63 47 72 75 70 |erFailed|sorcGrup|
|000026e0| 00 00 00 a0 00 00 00 43 | 73 74 73 72 49 6e 74 20 |.......C|stsrInt |
|000026f0| 00 00 00 01 73 74 73 63 | 49 6e 74 20 00 00 00 00 |....stsc|Int ....|
|00002700| 6e 64 73 72 49 6e 74 20 | 00 00 00 01 6e 64 73 63 |ndsrInt |....ndsc|
|00002710| 49 6e 74 20 00 00 00 00 | 73 72 63 6c 53 74 72 6e |Int ....|srclStrn|
|00002720| 00 00 00 3f 53 75 62 20 | 44 65 6c 65 74 65 55 73 |...?Sub |DeleteUs|
|00002730| 65 72 46 61 69 6c 65 64 | 28 54 61 73 6b 49 44 20 |erFailed|(TaskID |
|00002740| 61 73 20 69 6e 74 65 67 | 65 72 2c 20 45 72 72 6f |as integ|er, Erro|
|00002750| 72 4d 65 73 73 61 67 65 | 20 61 73 20 73 74 72 69 |rMessage| as stri|
|00002760| 6e 67 29 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |ng).srcl|Strn....|
|00002770| 73 72 63 6c 53 74 72 6e | 00 00 00 07 45 6e 64 20 |srclStrn|....End |
|00002780| 53 75 62 00 45 6e 64 47 | 49 6e 74 20 00 00 00 43 |Sub.EndG|Int ...C|
|00002790| 45 6e 64 47 49 6e 74 20 | 00 00 00 42 48 49 6e 73 |EndGInt |...BHIns|
|000027a0| 47 72 75 70 00 00 00 b8 | 00 00 00 44 6e 61 6d 65 |Grup....|...Dname|
|000027b0| 53 74 72 6e 00 00 00 0c | 47 6f 74 42 72 6f 61 64 |Strn....|GotBroad|
|000027c0| 63 61 73 74 73 6f 72 63 | 47 72 75 70 00 00 00 84 |castsorc|Grup....|
|000027d0| 00 00 00 45 73 74 73 72 | 49 6e 74 20 00 00 00 01 |...Estsr|Int ....|
|000027e0| 73 74 73 63 49 6e 74 20 | 00 00 00 00 6e 64 73 72 |stscInt |....ndsr|
|000027f0| 49 6e 74 20 00 00 00 01 | 6e 64 73 63 49 6e 74 20 |Int ....|ndscInt |
|00002800| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 23 |....srcl|Strn...#|
|00002810| 53 75 62 20 47 6f 74 42 | 72 6f 61 64 63 61 73 74 |Sub GotB|roadcast|
|00002820| 28 4d 65 73 73 61 67 65 | 20 61 73 20 73 74 72 69 |(Message| as stri|
|00002830| 6e 67 29 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |ng).srcl|Strn....|
|00002840| 73 72 63 6c 53 74 72 6e | 00 00 00 07 45 6e 64 20 |srclStrn|....End |
|00002850| 53 75 62 00 45 6e 64 47 | 49 6e 74 20 00 00 00 45 |Sub.EndG|Int ...E|
|00002860| 45 6e 64 47 49 6e 74 20 | 00 00 00 44 48 49 6e 73 |EndGInt |...DHIns|
|00002870| 47 72 75 70 00 00 01 b4 | 00 00 00 46 6e 61 6d 65 |Grup....|...Fname|
|00002880| 53 74 72 6e 00 00 00 0b | 4c 6f 67 69 6e 46 61 69 |Strn....|LoginFai|
|00002890| 6c 65 64 00 73 6f 72 63 | 47 72 75 70 00 00 01 80 |led.sorc|Grup....|
|000028a0| 00 00 00 47 73 74 73 72 | 49 6e 74 20 00 00 00 04 |...Gstsr|Int ....|
|000028b0| 73 74 73 63 49 6e 74 20 | 00 00 00 18 6e 64 73 72 |stscInt |....ndsr|
|000028c0| 49 6e 74 20 00 00 00 04 | 6e 64 73 63 49 6e 74 20 |Int ....|ndscInt |
|000028d0| 00 00 00 18 73 72 63 6c | 53 74 72 6e 00 00 00 3a |....srcl|Strn...:|
|000028e0| 53 75 62 20 4c 6f 67 69 | 6e 46 61 69 6c 65 64 28 |Sub Logi|nFailed(|
|000028f0| 54 61 73 6b 49 44 20 61 | 73 20 69 6e 74 65 67 65 |TaskID a|s intege|
|00002900| 72 2c 20 45 72 72 6f 72 | 4d 65 73 73 61 67 65 20 |r, Error|Message |
|00002910| 61 73 20 73 74 72 69 6e | 67 29 00 00 73 72 63 6c |as strin|g)..srcl|
|00002920| 53 74 72 6e 00 00 00 2f | 6c 6f 67 3d 6c 6f 67 2b |Strn.../|log=log+|
|00002930| 22 4c 6f 67 69 6e 20 66 | 61 69 6c 65 64 2e 20 20 |"Login f|ailed.  |
|00002940| 22 20 2b 65 72 72 6f 72 | 6d 65 73 73 61 67 65 2b |" +error|message+|
|00002950| 63 68 72 28 31 33 29 00 | 73 72 63 6c 53 74 72 6e |chr(13).|srclStrn|
|00002960| 00 00 00 1c 69 66 20 6d | 79 63 6f 6e 6e 65 63 74 |....if m|yconnect|
|00002970| 69 6f 6e 77 69 6e 3c 3e | 6e 69 6c 20 74 68 65 6e |ionwin<>|nil then|
|00002980| 73 72 63 6c 53 74 72 6e | 00 00 00 2a 6d 79 63 6f |srclStrn|...*myco|
|00002990| 6e 6e 65 63 74 69 6f 6e | 77 69 6e 2e 50 72 6f 67 |nnection|win.Prog|
|000029a0| 72 65 73 73 42 61 72 31 | 2e 76 69 73 69 62 6c 65 |ressBar1|.visible|
|000029b0| 3d 66 61 6c 73 65 00 00 | 73 72 63 6c 53 74 72 6e |=false..|srclStrn|
|000029c0| 00 00 00 32 6d 79 63 6f | 6e 6e 65 63 74 69 6f 6e |...2myco|nnection|
|000029d0| 77 69 6e 2e 52 6f 6f 6d | 4c 69 73 74 2e 63 65 6c |win.Room|List.cel|
|000029e0| 6c 28 30 2c 31 29 3d 22 | 4c 6f 67 69 6e 20 46 61 |l(0,1)="|Login Fa|
|000029f0| 69 6c 65 64 21 22 00 00 | 73 72 63 6c 53 74 72 6e |iled!"..|srclStrn|
|00002a00| 00 00 00 06 65 6e 64 20 | 69 66 00 00 73 72 63 6c |....end |if..srcl|
|00002a10| 53 74 72 6e 00 00 00 07 | 45 6e 64 20 53 75 62 00 |Strn....|End Sub.|
|00002a20| 45 6e 64 47 49 6e 74 20 | 00 00 00 47 45 6e 64 47 |EndGInt |...GEndG|
|00002a30| 49 6e 74 20 00 00 00 46 | 48 49 6e 73 47 72 75 70 |Int ...F|HInsGrup|
|00002a40| 00 00 00 e0 00 00 00 48 | 6e 61 6d 65 53 74 72 6e |.......H|nameStrn|
|00002a50| 00 00 00 14 50 72 69 76 | 61 74 65 4d 65 73 73 61 |....Priv|ateMessa|
|00002a60| 67 65 46 61 69 6c 65 64 | 73 6f 72 63 47 72 75 70 |geFailed|sorcGrup|
|00002a70| 00 00 00 a4 00 00 00 49 | 73 74 73 72 49 6e 74 20 |.......I|stsrInt |
|00002a80| 00 00 00 01 73 74 73 63 | 49 6e 74 20 00 00 00 00 |....stsc|Int ....|
|00002a90| 6e 64 73 72 49 6e 74 20 | 00 00 00 01 6e 64 73 63 |ndsrInt |....ndsc|
|00002aa0| 49 6e 74 20 00 00 00 00 | 73 72 63 6c 53 74 72 6e |Int ....|srclStrn|
|00002ab0| 00 00 00 43 53 75 62 20 | 50 72 69 76 61 74 65 4d |...CSub |PrivateM|
|00002ac0| 65 73 73 61 67 65 46 61 | 69 6c 65 64 28 54 61 73 |essageFa|iled(Tas|
|00002ad0| 6b 49 44 20 61 73 20 69 | 6e 74 65 67 65 72 2c 20 |kID as i|nteger, |
|00002ae0| 45 72 72 6f 72 4d 65 73 | 73 61 67 65 20 61 73 20 |ErrorMes|sage as |
|00002af0| 73 74 72 69 6e 67 29 00 | 73 72 63 6c 53 74 72 6e |string).|srclStrn|
|00002b00| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 07 |....srcl|Strn....|
|00002b10| 45 6e 64 20 53 75 62 00 | 45 6e 64 47 49 6e 74 20 |End Sub.|EndGInt |
|00002b20| 00 00 00 49 45 6e 64 47 | 49 6e 74 20 00 00 00 48 |...IEndG|Int ...H|
|00002b30| 48 49 6e 73 47 72 75 70 | 00 00 02 c0 00 00 00 4a |HInsGrup|.......J|
|00002b40| 6e 61 6d 65 53 74 72 6e | 00 00 00 0f 47 6f 74 44 |nameStrn|....GotD|
|00002b50| 69 73 63 6f 6e 6e 65 63 | 74 65 64 00 73 6f 72 63 |isconnec|ted.sorc|
|00002b60| 47 72 75 70 00 00 02 88 | 00 00 00 4b 73 74 73 72 |Grup....|...Kstsr|
|00002b70| 49 6e 74 20 00 00 00 06 | 73 74 73 63 49 6e 74 20 |Int ....|stscInt |
|00002b80| 00 00 00 18 6e 64 73 72 | 49 6e 74 20 00 00 00 06 |....ndsr|Int ....|
|00002b90| 6e 64 73 63 49 6e 74 20 | 00 00 00 18 73 72 63 6c |ndscInt |....srcl|
|00002ba0| 53 74 72 6e 00 00 00 26 | 53 75 62 20 47 6f 74 44 |Strn...&|Sub GotD|
|00002bb0| 69 73 63 6f 6e 6e 65 63 | 74 65 64 28 4d 65 73 73 |isconnec|ted(Mess|
|00002bc0| 61 67 65 20 61 73 20 73 | 74 72 69 6e 67 29 00 00 |age as s|tring)..|
|00002bd0| 73 72 63 6c 53 74 72 6e | 00 00 00 0d 44 69 6d 20 |srclStrn|....Dim |
|00002be0| 64 20 61 73 20 64 61 74 | 65 00 00 00 73 72 63 6c |d as dat|e...srcl|
|00002bf0| 53 74 72 6e 00 00 00 0a | 64 3d 6e 65 77 20 64 61 |Strn....|d=new da|
|00002c00| 74 65 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 3b |te..srcl|Strn...;|
|00002c10| 6c 6f 67 3d 6c 6f 67 2b | 22 47 6f 74 20 64 69 73 |log=log+|"Got dis|
|00002c20| 63 6f 6e 6e 65 63 74 65 | 64 2e 20 20 4d 65 73 73 |connecte|d.  Mess|
|00002c30| 61 67 65 20 72 65 61 64 | 73 3a 22 2b 6d 65 73 73 |age read|s:"+mess|
|00002c40| 61 67 65 2b 63 68 72 28 | 31 33 29 00 73 72 63 6c |age+chr(|13).srcl|
|00002c50| 53 74 72 6e 00 00 00 1c | 69 66 20 6d 79 63 6f 6e |Strn....|if mycon|
|00002c60| 6e 65 63 74 69 6f 6e 77 | 69 6e 3c 3e 6e 69 6c 20 |nectionw|in<>nil |
|00002c70| 74 68 65 6e 73 72 63 6c | 53 74 72 6e 00 00 00 2d |thensrcl|Strn...-|
|00002c80| 6d 79 63 6f 6e 6e 65 63 | 74 69 6f 6e 77 69 6e 2e |myconnec|tionwin.|
|00002c90| 70 75 73 68 42 75 74 74 | 6f 6e 32 2e 63 61 70 74 |pushButt|on2.capt|
|00002ca0| 69 6f 6e 3d 22 43 6f 6e | 6e 65 63 74 22 00 00 00 |ion="Con|nect"...|
|00002cb0| 73 72 63 6c 53 74 72 6e | 00 00 00 26 6d 79 63 6f |srclStrn|...&myco|
|00002cc0| 6e 6e 65 63 74 69 6f 6e | 77 69 6e 2e 52 6f 6f 6d |nnection|win.Room|
|00002cd0| 4c 69 73 74 2e 64 65 6c | 65 74 65 41 6c 6c 52 6f |List.del|eteAllRo|
|00002ce0| 77 73 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 27 |ws..srcl|Strn...'|
|00002cf0| 6d 79 63 6f 6e 6e 65 63 | 74 69 6f 6e 77 69 6e 2e |myconnec|tionwin.|
|00002d00| 41 64 64 72 65 73 73 62 | 6f 78 2e 65 6e 61 62 6c |Addressb|ox.enabl|
|00002d10| 65 64 3d 74 72 75 65 00 | 73 72 63 6c 53 74 72 6e |ed=true.|srclStrn|
|00002d20| 00 00 00 25 6d 79 63 6f | 6e 6e 65 63 74 69 6f 6e |...%myco|nnection|
|00002d30| 77 69 6e 2e 4c 6f 67 69 | 6e 42 6f 78 2e 65 6e 61 |win.Logi|nBox.ena|
|00002d40| 62 6c 65 64 3d 74 72 75 | 65 00 00 00 73 72 63 6c |bled=tru|e...srcl|
|00002d50| 53 74 72 6e 00 00 00 24 | 6d 79 63 6f 6e 6e 65 63 |Strn...$|myconnec|
|00002d60| 74 69 6f 6e 77 69 6e 2e | 50 61 73 73 42 6f 78 2e |tionwin.|PassBox.|
|00002d70| 65 6e 61 62 6c 65 64 3d | 74 72 75 65 73 72 63 6c |enabled=|truesrcl|
|00002d80| 53 74 72 6e 00 00 00 10 | 46 6c 61 73 68 69 63 6f |Strn....|Flashico|
|00002d90| 6e 2e 6d 6f 64 65 3d 30 | 73 72 63 6c 53 74 72 6e |n.mode=0|srclStrn|
|00002da0| 00 00 00 10 72 65 73 65 | 74 69 63 6f 6e 2e 6d 6f |....rese|ticon.mo|
|00002db0| 64 65 3d 30 73 72 63 6c | 53 74 72 6e 00 00 00 05 |de=0srcl|Strn....|
|00002dc0| 63 6c 6f 73 65 00 00 00 | 73 72 63 6c 53 74 72 6e |close...|srclStrn|
|00002dd0| 00 00 00 06 65 6e 64 20 | 69 66 00 00 73 72 63 6c |....end |if..srcl|
|00002de0| 53 74 72 6e 00 00 00 07 | 45 6e 64 20 53 75 62 00 |Strn....|End Sub.|
|00002df0| 45 6e 64 47 49 6e 74 20 | 00 00 00 4b 45 6e 64 47 |EndGInt |...KEndG|
|00002e00| 49 6e 74 20 00 00 00 4a | 48 49 6e 73 47 72 75 70 |Int ...J|HInsGrup|
|00002e10| 00 00 00 b8 00 00 00 4c | 6e 61 6d 65 53 74 72 6e |.......L|nameStrn|
|00002e20| 00 00 00 0b 47 6f 74 4e | 65 77 73 50 6f 73 74 00 |....GotN|ewsPost.|
|00002e30| 73 6f 72 63 47 72 75 70 | 00 00 00 84 00 00 00 4d |sorcGrup|.......M|
|00002e40| 73 74 73 72 49 6e 74 20 | 00 00 00 01 73 74 73 63 |stsrInt |....stsc|
|00002e50| 49 6e 74 20 00 00 00 00 | 6e 64 73 72 49 6e 74 20 |Int ....|ndsrInt |
|00002e60| 00 00 00 01 6e 64 73 63 | 49 6e 74 20 00 00 00 00 |....ndsc|Int ....|
|00002e70| 73 72 63 6c 53 74 72 6e | 00 00 00 23 53 75 62 20 |srclStrn|...#Sub |
|00002e80| 47 6f 74 4e 65 77 73 50 | 6f 73 74 28 50 6f 73 74 |GotNewsP|ost(Post|
|00002e90| 54 65 78 74 20 61 73 20 | 73 74 72 69 6e 67 29 00 |Text as |string).|
|00002ea0| 73 72 63 6c 53 74 72 6e | 00 00 00 00 73 72 63 6c |srclStrn|....srcl|
|00002eb0| 53 74 72 6e 00 00 00 07 | 45 6e 64 20 53 75 62 00 |Strn....|End Sub.|
|00002ec0| 45 6e 64 47 49 6e 74 20 | 00 00 00 4d 45 6e 64 47 |EndGInt |...MEndG|
|00002ed0| 49 6e 74 20 00 00 00 4c | 48 49 6e 73 47 72 75 70 |Int ...L|HInsGrup|
|00002ee0| 00 00 06 4c 00 00 00 4e | 6e 61 6d 65 53 74 72 6e |...L...N|nameStrn|
|00002ef0| 00 00 00 10 47 6f 74 43 | 68 61 6e 67 65 53 75 62 |....GotC|hangeSub|
|00002f00| 6a 65 63 74 73 6f 72 63 | 47 72 75 70 00 00 06 14 |jectsorc|Grup....|
|00002f10| 00 00 00 4f 73 74 73 72 | 49 6e 74 20 00 00 00 2b |...Ostsr|Int ...+|
|00002f20| 73 74 73 63 49 6e 74 20 | 00 00 00 1a 6e 64 73 72 |stscInt |....ndsr|
|00002f30| 49 6e 74 20 00 00 00 2b | 6e 64 73 63 49 6e 74 20 |Int ...+|ndscInt |
|00002f40| 00 00 00 1a 73 72 63 6c | 53 74 72 6e 00 00 00 41 |....srcl|Strn...A|
|00002f50| 53 75 62 20 47 6f 74 43 | 68 61 6e 67 65 53 75 62 |Sub GotC|hangeSub|
|00002f60| 6a 65 63 74 28 43 68 61 | 74 57 69 6e 64 6f 77 20 |ject(Cha|tWindow |
|00002f70| 61 73 20 69 6e 74 65 67 | 65 72 2c 20 4e 65 77 53 |as integ|er, NewS|
|00002f80| 75 62 6a 65 63 74 20 61 | 73 20 73 74 72 69 6e 67 |ubject a|s string|
|00002f90| 29 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 0e |)...srcl|Strn....|
|00002fa0| 44 69 6d 20 70 20 61 73 | 20 70 63 68 61 74 00 00 |Dim p as| pchat..|
|00002fb0| 73 72 63 6c 53 74 72 6e | 00 00 00 10 44 69 6d 20 |srclStrn|....Dim |
|00002fc0| 69 20 61 73 20 69 6e 74 | 65 67 65 72 73 72 63 6c |i as int|egersrcl|
|00002fd0| 53 74 72 6e 00 00 00 15 | 44 69 6d 20 63 6f 6d 6d |Strn....|Dim comm|
|00002fe0| 61 6e 64 20 61 73 20 73 | 74 72 69 6e 67 00 00 00 |and as s|tring...|
|00002ff0| 73 72 63 6c 53 74 72 6e | 00 00 00 12 44 69 6d 20 |srclStrn|....Dim |
|00003000| 64 61 74 61 20 61 73 20 | 73 74 72 69 6e 67 00 00 |data as |string..|
|00003010| 73 72 63 6c 53 74 72 6e | 00 00 00 22 63 6f 6d 6d |srclStrn|..."comm|
|00003020| 61 6e 64 3d 6e 74 68 46 | 69 65 6c 64 28 6e 65 77 |and=nthF|ield(new|
|00003030| 73 75 62 6a 65 63 74 2c | 22 3d 22 2c 31 29 00 00 |subject,|"=",1)..|
|00003040| 73 72 63 6c 53 74 72 6e | 00 00 00 1f 64 61 74 61 |srclStrn|....data|
|00003050| 3d 6e 74 68 46 69 65 6c | 64 28 6e 65 77 73 75 62 |=nthFiel|d(newsub|
|00003060| 6a 65 63 74 2c 22 3d 22 | 2c 32 29 00 73 72 63 6c |ject,"="|,2).srcl|
|00003070| 53 74 72 6e 00 00 00 1c | 69 66 20 6d 79 63 6f 6e |Strn....|if mycon|
|00003080| 6e 65 63 74 69 6f 6e 77 | 69 6e 3c 3e 6e 69 6c 20 |nectionw|in<>nil |
|00003090| 74 68 65 6e 73 72 63 6c | 53 74 72 6e 00 00 00 00 |thensrcl|Strn....|
|000030a0| 73 72 63 6c 53 74 72 6e | 00 00 00 1b 66 6f 72 20 |srclStrn|....for |
|000030b0| 69 20 3d 20 31 20 74 6f | 20 75 62 6f 75 6e 64 28 |i = 1 to| ubound(|
|000030c0| 70 63 68 61 74 73 29 00 | 73 72 63 6c 53 74 72 6e |pchats).|srclStrn|
|000030d0| 00 00 00 1f 69 66 20 70 | 63 68 61 74 73 28 69 29 |....if p|chats(i)|
|000030e0| 2e 49 44 3d 63 68 61 74 | 77 69 6e 64 6f 77 20 74 |.ID=chat|window t|
|000030f0| 68 65 6e 00 73 72 63 6c | 53 74 72 6e 00 00 00 0b |hen.srcl|Strn....|
|00003100| 70 3d 70 63 68 61 74 73 | 28 69 29 00 73 72 63 6c |p=pchats|(i).srcl|
|00003110| 53 74 72 6e 00 00 00 04 | 65 78 69 74 73 72 63 6c |Strn....|exitsrcl|
|00003120| 53 74 72 6e 00 00 00 06 | 65 6e 64 20 69 66 00 00 |Strn....|end if..|
|00003130| 73 72 63 6c 53 74 72 6e | 00 00 00 04 6e 65 78 74 |srclStrn|....next|
|00003140| 73 72 63 6c 53 74 72 6e | 00 00 00 0e 69 66 20 70 |srclStrn|....if p|
|00003150| 3c 3e 6e 69 6c 20 74 68 | 65 6e 00 00 73 72 63 6c |<>nil th|en..srcl|
|00003160| 53 74 72 6e 00 00 00 13 | 73 65 6c 65 63 74 20 63 |Strn....|select c|
|00003170| 61 73 65 20 63 6f 6d 6d | 61 6e 64 00 73 72 63 6c |ase comm|and.srcl|
|00003180| 53 74 72 6e 00 00 00 2a | 63 61 73 65 20 22 50 61 |Strn...*|case "Pa|
|00003190| 73 73 77 6f 72 64 22 20 | 2f 2f 55 73 65 64 20 77 |ssword" |//Used w|
|000031a0| 68 65 6e 20 6c 6f 63 6b | 69 6e 67 20 61 20 72 6f |hen lock|ing a ro|
|000031b0| 6f 6d 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 0f |om..srcl|Strn....|
|000031c0| 70 2e 73 65 63 72 65 74 | 49 44 3d 64 61 74 61 00 |p.secret|ID=data.|
|000031d0| 73 72 63 6c 53 74 72 6e | 00 00 00 26 69 66 20 69 |srclStrn|...&if i|
|000031e0| 6e 73 74 72 28 70 2e 63 | 68 61 6e 6e 65 6c 6e 61 |nstr(p.c|hannelna|
|000031f0| 6d 65 2c 63 6f 6d 6d 61 | 6e 64 29 3d 30 20 74 68 |me,comma|nd)=0 th|
|00003200| 65 6e 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 23 |en..srcl|Strn...#|
|00003210| 6d 65 2e 43 68 61 6e 67 | 65 53 75 62 6a 65 63 74 |me.Chang|eSubject|
|00003220| 20 70 2e 49 44 2c 70 2e | 63 68 61 6e 6e 65 6c 6e | p.ID,p.|channeln|
|00003230| 61 6d 65 00 73 72 63 6c | 53 74 72 6e 00 00 00 04 |ame.srcl|Strn....|
|00003240| 65 6c 73 65 73 72 63 6c | 53 74 72 6e 00 00 00 23 |elsesrcl|Strn...#|
|00003250| 6d 65 2e 43 68 61 6e 67 | 65 53 75 62 6a 65 63 74 |me.Chang|eSubject|
|00003260| 20 70 2e 49 44 2c 22 4c | 6f 63 6b 65 64 20 52 6f | p.ID,"L|ocked Ro|
|00003270| 6f 6d 22 00 73 72 63 6c | 53 74 72 6e 00 00 00 06 |om".srcl|Strn....|
|00003280| 65 6e 64 20 69 66 00 00 | 73 72 63 6c 53 74 72 6e |end if..|srclStrn|
|00003290| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |....srcl|Strn....|
|000032a0| 73 72 63 6c 53 74 72 6e | 00 00 00 39 63 61 73 65 |srclStrn|...9case|
|000032b0| 20 22 65 78 70 69 72 65 | 22 2f 2f 75 73 65 64 20 | "expire|"//used |
|000032c0| 77 68 65 6e 20 73 65 74 | 74 69 6e 67 20 74 68 65 |when set|ting the|
|000032d0| 20 65 78 70 65 72 61 74 | 69 6f 6e 20 6f 66 20 61 | experat|ion of a|
|000032e0| 20 72 6f 6f 6d 00 00 00 | 73 72 63 6c 53 74 72 6e | room...|srclStrn|
|000032f0| 00 00 00 13 69 66 20 64 | 61 74 61 3d 22 74 72 75 |....if d|ata="tru|
|00003300| 65 22 20 74 68 65 6e 00 | 73 72 63 6c 53 74 72 6e |e" then.|srclStrn|
|00003310| 00 00 00 0d 70 2e 65 78 | 70 69 72 65 3d 74 72 75 |....p.ex|pire=tru|
|00003320| 65 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 04 |e...srcl|Strn....|
|00003330| 65 6c 73 65 73 72 63 6c | 53 74 72 6e 00 00 00 0e |elsesrcl|Strn....|
|00003340| 70 2e 65 78 70 69 72 65 | 3d 66 61 6c 73 65 00 00 |p.expire|=false..|
|00003350| 73 72 63 6c 53 74 72 6e | 00 00 00 06 65 6e 64 20 |srclStrn|....end |
|00003360| 69 66 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 23 |if..srcl|Strn...#|
|00003370| 6d 65 2e 43 68 61 6e 67 | 65 53 75 62 6a 65 63 74 |me.Chang|eSubject|
|00003380| 20 70 2e 49 44 2c 70 2e | 63 68 61 6e 6e 65 6c 6e | p.ID,p.|channeln|
|00003390| 61 6d 65 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |ame.srcl|Strn....|
|000033a0| 73 72 63 6c 53 74 72 6e | 00 00 00 00 73 72 63 6c |srclStrn|....srcl|
|000033b0| 53 74 72 6e 00 00 00 12 | 65 6c 73 65 20 2f 2f 20 |Strn....|else // |
|000033c0| 6e 6f 20 63 6f 6d 6d 61 | 6e 64 00 00 73 72 63 6c |no comma|nd..srcl|
|000033d0| 53 74 72 6e 00 00 00 1e | 70 2e 63 68 61 6e 6e 65 |Strn....|p.channe|
|000033e0| 6c 6e 61 6d 65 3d 74 72 | 69 6d 28 6e 65 77 73 75 |lname=tr|im(newsu|
|000033f0| 62 6a 65 63 74 29 00 00 | 73 72 63 6c 53 74 72 6e |bject)..|srclStrn|
|00003400| 00 00 00 1c 69 66 20 6c | 65 6e 28 70 2e 63 68 61 |....if l|en(p.cha|
|00003410| 6e 6e 65 6c 6e 61 6d 65 | 29 3d 30 20 74 68 65 6e |nnelname|)=0 then|
|00003420| 73 72 63 6c 53 74 72 6e | 00 00 00 1d 70 2e 63 68 |srclStrn|....p.ch|
|00003430| 61 6e 6e 65 6c 6e 61 6d | 65 3d 22 55 6e 74 69 74 |annelnam|e="Untit|
|00003440| 6c 65 64 20 52 6f 6f 6d | 22 00 00 00 73 72 63 6c |led Room|"...srcl|
|00003450| 53 74 72 6e 00 00 00 23 | 6d 65 2e 43 68 61 6e 67 |Strn...#|me.Chang|
|00003460| 65 53 75 62 6a 65 63 74 | 20 70 2e 49 44 2c 70 2e |eSubject| p.ID,p.|
|00003470| 63 68 61 6e 6e 65 6c 6e | 61 6d 65 00 73 72 63 6c |channeln|ame.srcl|
|00003480| 53 74 72 6e 00 00 00 06 | 65 6e 64 20 69 66 00 00 |Strn....|end if..|
|00003490| 73 72 63 6c 53 74 72 6e | 00 00 00 03 65 6e 64 00 |srclStrn|....end.|
|000034a0| 73 72 63 6c 53 74 72 6e | 00 00 00 00 73 72 63 6c |srclStrn|....srcl|
|000034b0| 53 74 72 6e 00 00 00 2e | 6d 79 63 6f 6e 6e 65 63 |Strn....|myconnec|
|000034c0| 74 69 6f 6e 77 69 6e 2e | 75 70 64 61 74 65 6c 69 |tionwin.|updateli|
|000034d0| 73 74 2e 6d 6f 64 65 3d | 31 2f 2f 75 70 64 61 74 |st.mode=|1//updat|
|000034e0| 65 20 6c 69 73 74 00 00 | 73 72 63 6c 53 74 72 6e |e list..|srclStrn|
|000034f0| 00 00 00 06 65 6e 64 20 | 69 66 00 00 73 72 63 6c |....end |if..srcl|
|00003500| 53 74 72 6e 00 00 00 06 | 65 6e 64 20 69 66 00 00 |Strn....|end if..|
|00003510| 73 72 63 6c 53 74 72 6e | 00 00 00 07 45 6e 64 20 |srclStrn|....End |
|00003520| 53 75 62 00 45 6e 64 47 | 49 6e 74 20 00 00 00 4f |Sub.EndG|Int ...O|
|00003530| 45 6e 64 47 49 6e 74 20 | 00 00 00 4e 48 49 6e 73 |EndGInt |...NHIns|
|00003540| 47 72 75 70 00 00 00 dc | 00 00 00 50 6e 61 6d 65 |Grup....|...Pname|
|00003550| 53 74 72 6e 00 00 00 0f | 55 73 65 72 4c 69 73 74 |Strn....|UserList|
|00003560| 53 75 63 63 65 73 73 00 | 73 6f 72 63 47 72 75 70 |Success.|sorcGrup|
|00003570| 00 00 00 a4 00 00 00 51 | 73 74 73 72 49 6e 74 20 |.......Q|stsrInt |
|00003580| 00 00 00 01 73 74 73 63 | 49 6e 74 20 00 00 00 00 |....stsc|Int ....|
|00003590| 6e 64 73 72 49 6e 74 20 | 00 00 00 01 6e 64 73 63 |ndsrInt |....ndsc|
|000035a0| 49 6e 74 20 00 00 00 00 | 73 72 63 6c 53 74 72 6e |Int ....|srclStrn|
|000035b0| 00 00 00 43 53 75 62 20 | 55 73 65 72 4c 69 73 74 |...CSub |UserList|
|000035c0| 53 75 63 63 65 73 73 28 | 54 61 73 6b 49 44 20 61 |Success(|TaskID a|
|000035d0| 73 20 69 6e 74 65 67 65 | 72 2c 20 47 6f 74 55 73 |s intege|r, GotUs|
|000035e0| 65 72 6c 69 73 74 20 61 | 73 20 55 73 65 72 6c 69 |erlist a|s Userli|
|000035f0| 73 74 54 79 70 65 29 00 | 73 72 63 6c 53 74 72 6e |stType).|srclStrn|
|00003600| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 07 |....srcl|Strn....|
|00003610| 45 6e 64 20 53 75 62 00 | 45 6e 64 47 49 6e 74 20 |End Sub.|EndGInt |
|00003620| 00 00 00 51 45 6e 64 47 | 49 6e 74 20 00 00 00 50 |...QEndG|Int ...P|
|00003630| 48 49 6e 73 47 72 75 70 | 00 00 00 d8 00 00 00 52 |HInsGrup|.......R|
|00003640| 6e 61 6d 65 53 74 72 6e | 00 00 00 0f 50 63 68 61 |nameStrn|....Pcha|
|00003650| 74 57 69 74 68 46 61 69 | 6c 65 64 00 73 6f 72 63 |tWithFai|led.sorc|
|00003660| 47 72 75 70 00 00 00 a0 | 00 00 00 53 73 74 73 72 |Grup....|...Sstsr|
|00003670| 49 6e 74 20 00 00 00 01 | 73 74 73 63 49 6e 74 20 |Int ....|stscInt |
|00003680| 00 00 00 00 6e 64 73 72 | 49 6e 74 20 00 00 00 01 |....ndsr|Int ....|
|00003690| 6e 64 73 63 49 6e 74 20 | 00 00 00 00 73 72 63 6c |ndscInt |....srcl|
|000036a0| 53 74 72 6e 00 00 00 3e | 53 75 62 20 50 63 68 61 |Strn...>|Sub Pcha|
|000036b0| 74 57 69 74 68 46 61 69 | 6c 65 64 28 54 61 73 6b |tWithFai|led(Task|
|000036c0| 49 44 20 61 73 20 69 6e | 74 65 67 65 72 2c 20 45 |ID as in|teger, E|
|000036d0| 72 72 6f 72 4d 65 73 73 | 61 67 65 20 61 73 20 73 |rrorMess|age as s|
|000036e0| 74 72 69 6e 67 29 00 00 | 73 72 63 6c 53 74 72 6e |tring)..|srclStrn|
|000036f0| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 07 |....srcl|Strn....|
|00003700| 45 6e 64 20 53 75 62 00 | 45 6e 64 47 49 6e 74 20 |End Sub.|EndGInt |
|00003710| 00 00 00 53 45 6e 64 47 | 49 6e 74 20 00 00 00 52 |...SEndG|Int ...R|
|00003720| 48 49 6e 73 47 72 75 70 | 00 00 01 24 00 00 00 54 |HInsGrup|...$...T|
|00003730| 6e 61 6d 65 53 74 72 6e | 00 00 00 10 50 63 68 61 |nameStrn|....Pcha|
|00003740| 74 57 69 74 68 53 75 63 | 63 65 73 73 73 6f 72 63 |tWithSuc|cesssorc|
|00003750| 47 72 75 70 00 00 00 ec | 00 00 00 55 73 74 73 72 |Grup....|...Ustsr|
|00003760| 49 6e 74 20 00 00 00 01 | 73 74 73 63 49 6e 74 20 |Int ....|stscInt |
|00003770| 00 00 00 00 6e 64 73 72 | 49 6e 74 20 00 00 00 01 |....ndsr|Int ....|
|00003780| 6e 64 73 63 49 6e 74 20 | 00 00 00 00 73 72 63 6c |ndscInt |....srcl|
|00003790| 53 74 72 6e 00 00 00 89 | 53 75 62 20 50 63 68 61 |Strn....|Sub Pcha|
|000037a0| 74 57 69 74 68 53 75 63 | 63 65 73 73 28 54 61 73 |tWithSuc|cess(Tas|
|000037b0| 6b 49 44 20 61 73 20 69 | 6e 74 65 67 65 72 2c 20 |kID as i|nteger, |
|000037c0| 43 68 61 74 57 69 6e 64 | 6f 77 20 61 73 20 69 6e |ChatWind|ow as in|
|000037d0| 74 65 67 65 72 2c 20 53 | 6f 63 6b 65 74 20 61 73 |teger, S|ocket as|
|000037e0| 20 69 6e 74 65 67 65 72 | 2c 20 49 63 6f 6e 20 61 | integer|, Icon a|
|000037f0| 73 20 69 6e 74 65 67 65 | 72 2c 20 73 74 61 74 75 |s intege|r, statu|
|00003800| 73 20 61 73 20 69 6e 74 | 65 67 65 72 2c 20 4e 69 |s as int|eger, Ni|
|00003810| 63 6b 6e 61 6d 65 20 61 | 73 20 73 74 72 69 6e 67 |ckname a|s string|
|00003820| 29 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |)...srcl|Strn....|
|00003830| 73 72 63 6c 53 74 72 6e | 00 00 00 07 45 6e 64 20 |srclStrn|....End |
|00003840| 53 75 62 00 45 6e 64 47 | 49 6e 74 20 00 00 00 55 |Sub.EndG|Int ...U|
|00003850| 45 6e 64 47 49 6e 74 20 | 00 00 00 54 48 49 6e 73 |EndGInt |...THIns|
|00003860| 47 72 75 70 00 00 00 e0 | 00 00 00 56 6e 61 6d 65 |Grup....|...Vname|
|00003870| 53 74 72 6e 00 00 00 14 | 50 72 69 76 61 74 65 43 |Strn....|PrivateC|
|00003880| 68 61 74 41 64 64 46 61 | 69 6c 65 64 73 6f 72 63 |hatAddFa|iledsorc|
|00003890| 47 72 75 70 00 00 00 a4 | 00 00 00 57 73 74 73 72 |Grup....|...Wstsr|
|000038a0| 49 6e 74 20 00 00 00 01 | 73 74 73 63 49 6e 74 20 |Int ....|stscInt |
|000038b0| 00 00 00 00 6e 64 73 72 | 49 6e 74 20 00 00 00 01 |....ndsr|Int ....|
|000038c0| 6e 64 73 63 49 6e 74 20 | 00 00 00 00 73 72 63 6c |ndscInt |....srcl|
|000038d0| 53 74 72 6e 00 00 00 43 | 53 75 62 20 50 72 69 76 |Strn...C|Sub Priv|
|000038e0| 61 74 65 43 68 61 74 41 | 64 64 46 61 69 6c 65 64 |ateChatA|ddFailed|
|000038f0| 28 54 61 73 6b 49 44 20 | 61 73 20 69 6e 74 65 67 |(TaskID |as integ|
|00003900| 65 72 2c 20 45 72 72 6f | 72 4d 65 73 73 61 67 65 |er, Erro|rMessage|
|00003910| 20 61 73 20 73 74 72 69 | 6e 67 29 00 73 72 63 6c | as stri|ng).srcl|
|00003920| 53 74 72 6e 00 00 00 00 | 73 72 63 6c 53 74 72 6e |Strn....|srclStrn|
|00003930| 00 00 00 07 45 6e 64 20 | 53 75 62 00 45 6e 64 47 |....End |Sub.EndG|
|00003940| 49 6e 74 20 00 00 00 57 | 45 6e 64 47 49 6e 74 20 |Int ...W|EndGInt |
|00003950| 00 00 00 56 48 49 6e 73 | 47 72 75 70 00 00 00 ec |...VHIns|Grup....|
|00003960| 00 00 00 58 6e 61 6d 65 | 53 74 72 6e 00 00 00 08 |...Xname|Strn....|
|00003970| 47 6f 74 50 63 68 61 74 | 73 6f 72 63 47 72 75 70 |GotPchat|sorcGrup|
|00003980| 00 00 00 bc 00 00 00 59 | 73 74 73 72 49 6e 74 20 |.......Y|stsrInt |
|00003990| 00 00 00 01 73 74 73 63 | 49 6e 74 20 00 00 00 09 |....stsc|Int ....|
|000039a0| 6e 64 73 72 49 6e 74 20 | 00 00 00 01 6e 64 73 63 |ndsrInt |....ndsc|
|000039b0| 49 6e 74 20 00 00 00 09 | 73 72 63 6c 53 74 72 6e |Int ....|srclStrn|
|000039c0| 00 00 00 49 53 75 62 20 | 47 6f 74 50 63 68 61 74 |...ISub |GotPchat|
|000039d0| 28 4d 65 73 73 61 67 65 | 20 61 73 20 73 74 72 69 |(Message| as stri|
|000039e0| 6e 67 2c 20 43 68 61 74 | 57 69 6e 64 6f 77 20 61 |ng, Chat|Window a|
|000039f0| 73 20 69 6e 74 65 67 65 | 72 2c 20 53 6f 63 6b 65 |s intege|r, Socke|
|00003a00| 74 20 61 73 20 69 6e 74 | 65 67 65 72 29 00 00 00 |t as int|eger)...|
|00003a10| 73 72 63 6c 53 74 72 6e | 00 00 00 10 46 6c 61 73 |srclStrn|....Flas|
|00003a20| 68 69 63 6f 6e 2e 6d 6f | 64 65 3d 31 73 72 63 6c |hicon.mo|de=1srcl|
|00003a30| 53 74 72 6e 00 00 00 07 | 45 6e 64 20 53 75 62 00 |Strn....|End Sub.|
|00003a40| 45 6e 64 47 49 6e 74 20 | 00 00 00 59 45 6e 64 47 |EndGInt |...YEndG|
|00003a50| 49 6e 74 20 00 00 00 58 | 48 49 6e 73 47 72 75 70 |Int ...X|HInsGrup|
|00003a60| 00 00 02 2c 00 00 00 5a | 6e 61 6d 65 53 74 72 6e |...,...Z|nameStrn|
|00003a70| 00 00 00 0d 47 6f 74 4a | 6f 69 6e 65 64 43 68 61 |....GotJ|oinedCha|
|00003a80| 74 00 00 00 73 6f 72 63 | 47 72 75 70 00 00 01 f4 |t...sorc|Grup....|
|00003a90| 00 00 00 5b 73 74 73 72 | 49 6e 74 20 00 00 00 08 |...[stsr|Int ....|
|00003aa0| 73 74 73 63 49 6e 74 20 | 00 00 00 04 6e 64 73 72 |stscInt |....ndsr|
|00003ab0| 49 6e 74 20 00 00 00 08 | 6e 64 73 63 49 6e 74 20 |Int ....|ndscInt |
|00003ac0| 00 00 00 04 73 72 63 6c | 53 74 72 6e 00 00 00 6f |....srcl|Strn...o|
|00003ad0| 53 75 62 20 47 6f 74 4a | 6f 69 6e 65 64 43 68 61 |Sub GotJ|oinedCha|
|00003ae0| 74 28 43 68 61 74 57 69 | 6e 64 6f 77 20 61 73 20 |t(ChatWi|ndow as |
|00003af0| 69 6e 74 65 67 65 72 2c | 20 53 6f 63 6b 65 74 20 |integer,| Socket |
|00003b00| 61 73 20 69 6e 74 65 67 | 65 72 2c 20 49 63 6f 6e |as integ|er, Icon|
|00003b10| 20 61 73 20 69 6e 74 65 | 67 65 72 2c 20 53 74 61 | as inte|ger, Sta|
|00003b20| 74 75 73 20 61 73 20 69 | 6e 74 65 67 65 72 2c 20 |tus as i|nteger, |
|00003b30| 4e 69 63 6b 20 61 73 20 | 73 74 72 69 6e 67 29 00 |Nick as |string).|
|00003b40| 73 72 63 6c 53 74 72 6e | 00 00 00 10 44 69 6d 20 |srclStrn|....Dim |
|00003b50| 69 20 61 73 20 69 6e 74 | 65 67 65 72 73 72 63 6c |i as int|egersrcl|
|00003b60| 53 74 72 6e 00 00 00 0e | 44 69 6d 20 70 20 61 73 |Strn....|Dim p as|
|00003b70| 20 70 63 68 61 74 00 00 | 73 72 63 6c 53 74 72 6e | pchat..|srclStrn|
|00003b80| 00 00 00 1b 66 6f 72 20 | 69 20 3d 20 31 20 74 6f |....for |i = 1 to|
|00003b90| 20 75 62 6f 75 6e 64 28 | 70 63 68 61 74 73 29 00 | ubound(|pchats).|
|00003ba0| 73 72 63 6c 53 74 72 6e | 00 00 00 1f 69 66 20 70 |srclStrn|....if p|
|00003bb0| 63 68 61 74 73 28 69 29 | 2e 49 44 3d 63 68 61 74 |chats(i)|.ID=chat|
|00003bc0| 77 69 6e 64 6f 77 20 74 | 68 65 6e 00 73 72 63 6c |window t|hen.srcl|
|00003bd0| 53 74 72 6e 00 00 00 0b | 70 3d 70 63 68 61 74 73 |Strn....|p=pchats|
|00003be0| 28 69 29 00 73 72 63 6c | 53 74 72 6e 00 00 00 04 |(i).srcl|Strn....|
|00003bf0| 65 78 69 74 73 72 63 6c | 53 74 72 6e 00 00 00 06 |exitsrcl|Strn....|
|00003c00| 65 6e 64 20 69 66 00 00 | 73 72 63 6c 53 74 72 6e |end if..|srclStrn|
|00003c10| 00 00 00 04 6e 65 78 74 | 73 72 63 6c 53 74 72 6e |....next|srclStrn|
|00003c20| 00 00 00 0e 69 66 20 70 | 3c 3e 6e 69 6c 20 74 68 |....if p|<>nil th|
|00003c30| 65 6e 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 19 |en..srcl|Strn....|
|00003c40| 70 2e 75 73 65 72 63 6f | 75 6e 74 3d 70 2e 75 73 |p.userco|unt=p.us|
|00003c50| 65 72 63 6f 75 6e 74 2b | 31 00 00 00 73 72 63 6c |ercount+|1...srcl|
|00003c60| 53 74 72 6e 00 00 00 06 | 65 6e 64 20 69 66 00 00 |Strn....|end if..|
|00003c70| 73 72 63 6c 53 74 72 6e | 00 00 00 07 45 6e 64 20 |srclStrn|....End |
|00003c80| 53 75 62 00 45 6e 64 47 | 49 6e 74 20 00 00 00 5b |Sub.EndG|Int ...[|
|00003c90| 45 6e 64 47 49 6e 74 20 | 00 00 00 5a 48 49 6e 73 |EndGInt |...ZHIns|
|00003ca0| 47 72 75 70 00 00 00 f0 | 00 00 00 5c 6e 61 6d 65 |Grup....|...\name|
|00003cb0| 53 74 72 6e 00 00 00 0d | 47 6f 74 55 73 65 72 43 |Strn....|GotUserC|
|00003cc0| 68 61 6e 67 65 00 00 00 | 73 6f 72 63 47 72 75 70 |hange...|sorcGrup|
|00003cd0| 00 00 00 b8 00 00 00 5d | 73 74 73 72 49 6e 74 20 |.......]|stsrInt |
|00003ce0| 00 00 00 01 73 74 73 63 | 49 6e 74 20 00 00 00 00 |....stsc|Int ....|
|00003cf0| 6e 64 73 72 49 6e 74 20 | 00 00 00 01 6e 64 73 63 |ndsrInt |....ndsc|
|00003d00| 49 6e 74 20 00 00 00 00 | 73 72 63 6c 53 74 72 6e |Int ....|srclStrn|
|00003d10| 00 00 00 58 53 75 62 20 | 47 6f 74 55 73 65 72 43 |...XSub |GotUserC|
|00003d20| 68 61 6e 67 65 28 53 6f | 63 6b 65 74 20 61 73 20 |hange(So|cket as |
|00003d30| 69 6e 74 65 67 65 72 2c | 20 49 63 6f 6e 20 61 73 |integer,| Icon as|
|00003d40| 20 69 6e 74 65 67 65 72 | 2c 20 53 74 61 74 75 73 | integer|, Status|
|00003d50| 20 61 73 20 69 6e 74 65 | 67 65 72 2c 20 4e 69 63 | as inte|ger, Nic|
|00003d60| 6b 20 61 73 20 73 74 72 | 69 6e 67 29 73 72 63 6c |k as str|ing)srcl|
|00003d70| 53 74 72 6e 00 00 00 00 | 73 72 63 6c 53 74 72 6e |Strn....|srclStrn|
|00003d80| 00 00 00 07 45 6e 64 20 | 53 75 62 00 45 6e 64 47 |....End |Sub.EndG|
|00003d90| 49 6e 74 20 00 00 00 5d | 45 6e 64 47 49 6e 74 20 |Int ...]|EndGInt |
|00003da0| 00 00 00 5c 48 49 6e 73 | 47 72 75 70 00 00 00 b8 |...\HIns|Grup....|
|00003db0| 00 00 00 5e 6e 61 6d 65 | 53 74 72 6e 00 00 00 0b |...^name|Strn....|
|00003dc0| 47 6f 74 55 73 65 72 4c | 65 66 74 00 73 6f 72 63 |GotUserL|eft.sorc|
|00003dd0| 47 72 75 70 00 00 00 84 | 00 00 00 5f 73 74 73 72 |Grup....|..._stsr|
|00003de0| 49 6e 74 20 00 00 00 01 | 73 74 73 63 49 6e 74 20 |Int ....|stscInt |
|00003df0| 00 00 00 00 6e 64 73 72 | 49 6e 74 20 00 00 00 01 |....ndsr|Int ....|
|00003e00| 6e 64 73 63 49 6e 74 20 | 00 00 00 00 73 72 63 6c |ndscInt |....srcl|
|00003e10| 53 74 72 6e 00 00 00 22 | 53 75 62 20 47 6f 74 55 |Strn..."|Sub GotU|
|00003e20| 73 65 72 4c 65 66 74 28 | 53 6f 63 6b 65 74 20 61 |serLeft(|Socket a|
|00003e30| 73 20 69 6e 74 65 67 65 | 72 29 00 00 73 72 63 6c |s intege|r)..srcl|
|00003e40| 53 74 72 6e 00 00 00 00 | 73 72 63 6c 53 74 72 6e |Strn....|srclStrn|
|00003e50| 00 00 00 07 45 6e 64 20 | 53 75 62 00 45 6e 64 47 |....End |Sub.EndG|
|00003e60| 49 6e 74 20 00 00 00 5f | 45 6e 64 47 49 6e 74 20 |Int ..._|EndGInt |
|00003e70| 00 00 00 5e 48 49 6e 73 | 47 72 75 70 00 00 02 44 |...^HIns|Grup...D|
|00003e80| 00 00 00 60 6e 61 6d 65 | 53 74 72 6e 00 00 00 0c |...`name|Strn....|
|00003e90| 47 6f 74 4c 65 66 74 50 | 63 68 61 74 73 6f 72 63 |GotLeftP|chatsorc|
|00003ea0| 47 72 75 70 00 00 02 10 | 00 00 00 61 73 74 73 72 |Grup....|...astsr|
|00003eb0| 49 6e 74 20 00 00 00 0e | 73 74 73 63 49 6e 74 20 |Int ....|stscInt |
|00003ec0| 00 00 00 06 6e 64 73 72 | 49 6e 74 20 00 00 00 0e |....ndsr|Int ....|
|00003ed0| 6e 64 73 63 49 6e 74 20 | 00 00 00 06 73 72 63 6c |ndscInt |....srcl|
|00003ee0| 53 74 72 6e 00 00 00 3a | 53 75 62 20 47 6f 74 4c |Strn...:|Sub GotL|
|00003ef0| 65 66 74 50 63 68 61 74 | 28 43 68 61 74 57 69 6e |eftPchat|(ChatWin|
|00003f00| 64 6f 77 20 61 73 20 69 | 6e 74 65 67 65 72 2c 20 |dow as i|nteger, |
|00003f10| 53 6f 63 6b 65 74 20 61 | 73 20 69 6e 74 65 67 65 |Socket a|s intege|
|00003f20| 72 29 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 10 |r)..srcl|Strn....|
|00003f30| 44 69 6d 20 69 20 61 73 | 20 69 6e 74 65 67 65 72 |Dim i as| integer|
|00003f40| 73 72 63 6c 53 74 72 6e | 00 00 00 0e 44 69 6d 20 |srclStrn|....Dim |
|00003f50| 70 20 61 73 20 70 63 68 | 61 74 00 00 73 72 63 6c |p as pch|at..srcl|
|00003f60| 53 74 72 6e 00 00 00 1b | 66 6f 72 20 69 20 3d 20 |Strn....|for i = |
|00003f70| 31 20 74 6f 20 75 62 6f | 75 6e 64 28 70 63 68 61 |1 to ubo|und(pcha|
|00003f80| 74 73 29 00 73 72 63 6c | 53 74 72 6e 00 00 00 1f |ts).srcl|Strn....|
|00003f90| 69 66 20 70 63 68 61 74 | 73 28 69 29 2e 49 44 3d |if pchat|s(i).ID=|
|00003fa0| 63 68 61 74 77 69 6e 64 | 6f 77 20 74 68 65 6e 00 |chatwind|ow then.|
|00003fb0| 73 72 63 6c 53 74 72 6e | 00 00 00 0b 70 3d 70 63 |srclStrn|....p=pc|
|00003fc0| 68 61 74 73 28 69 29 00 | 73 72 63 6c 53 74 72 6e |hats(i).|srclStrn|
|00003fd0| 00 00 00 04 65 78 69 74 | 73 72 63 6c 53 74 72 6e |....exit|srclStrn|
|00003fe0| 00 00 00 06 65 6e 64 20 | 69 66 00 00 73 72 63 6c |....end |if..srcl|
|00003ff0| 53 74 72 6e 00 00 00 04 | 6e 65 78 74 73 72 63 6c |Strn....|nextsrcl|
|00004000| 53 74 72 6e 00 00 00 0e | 69 66 20 70 3c 3e 6e 69 |Strn....|if p<>ni|
|00004010| 6c 20 74 68 65 6e 00 00 | 73 72 63 6c 53 74 72 6e |l then..|srclStrn|
|00004020| 00 00 00 19 70 2e 75 73 | 65 72 63 6f 75 6e 74 3d |....p.us|ercount=|
|00004030| 70 2e 75 73 65 72 63 6f | 75 6e 74 2d 31 00 00 00 |p.userco|unt-1...|
|00004040| 73 72 63 6c 53 74 72 6e | 00 00 00 15 69 66 20 70 |srclStrn|....if p|
|00004050| 2e 75 73 65 72 63 6f 75 | 6e 74 3d 31 20 74 68 65 |.usercou|nt=1 the|
|00004060| 6e 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 09 |n...srcl|Strn....|
|00004070| 70 2e 74 3d 74 69 63 6b | 73 00 00 00 73 72 63 6c |p.t=tick|s...srcl|
|00004080| 53 74 72 6e 00 00 00 06 | 65 6e 64 20 69 66 00 00 |Strn....|end if..|
|00004090| 73 72 63 6c 53 74 72 6e | 00 00 00 06 65 6e 64 20 |srclStrn|....end |
|000040a0| 69 66 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 07 |if..srcl|Strn....|
|000040b0| 45 6e 64 20 53 75 62 00 | 45 6e 64 47 49 6e 74 20 |End Sub.|EndGInt |
|000040c0| 00 00 00 61 45 6e 64 47 | 49 6e 74 20 00 00 00 60 |...aEndG|Int ...`|
|000040d0| 48 49 6e 73 47 72 75 70 | 00 00 00 e4 00 00 00 62 |HInsGrup|.......b|
|000040e0| 6e 61 6d 65 53 74 72 6e | 00 00 00 15 4a 6f 69 6e |nameStrn|....Join|
|000040f0| 50 72 69 76 61 74 65 43 | 68 61 74 46 61 69 6c 65 |PrivateC|hatFaile|
|00004100| 64 00 00 00 73 6f 72 63 | 47 72 75 70 00 00 00 a4 |d...sorc|Grup....|
|00004110| 00 00 00 63 73 74 73 72 | 49 6e 74 20 00 00 00 01 |...cstsr|Int ....|
|00004120| 73 74 73 63 49 6e 74 20 | 00 00 00 00 6e 64 73 72 |stscInt |....ndsr|
|00004130| 49 6e 74 20 00 00 00 01 | 6e 64 73 63 49 6e 74 20 |Int ....|ndscInt |
|00004140| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 44 |....srcl|Strn...D|
|00004150| 53 75 62 20 4a 6f 69 6e | 50 72 69 76 61 74 65 43 |Sub Join|PrivateC|
|00004160| 68 61 74 46 61 69 6c 65 | 64 28 54 61 73 6b 49 44 |hatFaile|d(TaskID|
|00004170| 20 61 73 20 69 6e 74 65 | 67 65 72 2c 20 45 72 72 | as inte|ger, Err|
|00004180| 6f 72 4d 65 73 73 61 67 | 65 20 61 73 20 73 74 72 |orMessag|e as str|
|00004190| 69 6e 67 29 73 72 63 6c | 53 74 72 6e 00 00 00 00 |ing)srcl|Strn....|
|000041a0| 73 72 63 6c 53 74 72 6e | 00 00 00 07 45 6e 64 20 |srclStrn|....End |
|000041b0| 53 75 62 00 45 6e 64 47 | 49 6e 74 20 00 00 00 63 |Sub.EndG|Int ...c|
|000041c0| 45 6e 64 47 49 6e 74 20 | 00 00 00 62 48 49 6e 73 |EndGInt |...bHIns|
|000041d0| 47 72 75 70 00 00 03 28 | 00 00 00 64 6e 61 6d 65 |Grup...(|...dname|
|000041e0| 53 74 72 6e 00 00 00 16 | 4a 6f 69 6e 50 72 69 76 |Strn....|JoinPriv|
|000041f0| 61 74 65 43 68 61 74 53 | 75 63 63 65 73 73 00 00 |ateChatS|uccess..|
|00004200| 73 6f 72 63 47 72 75 70 | 00 00 02 e8 00 00 00 65 |sorcGrup|.......e|
|00004210| 73 74 73 72 49 6e 74 20 | 00 00 00 0b 73 74 73 63 |stsrInt |....stsc|
|00004220| 49 6e 74 20 00 00 00 02 | 6e 64 73 72 49 6e 74 20 |Int ....|ndsrInt |
|00004230| 00 00 00 0b 6e 64 73 63 | 49 6e 74 20 00 00 00 0b |....ndsc|Int ....|
|00004240| 73 72 63 6c 53 74 72 6e | 00 00 00 60 53 75 62 20 |srclStrn|...`Sub |
|00004250| 4a 6f 69 6e 50 72 69 76 | 61 74 65 43 68 61 74 53 |JoinPriv|ateChatS|
|00004260| 75 63 63 65 73 73 28 54 | 61 73 6b 49 44 20 61 73 |uccess(T|askID as|
|00004270| 20 69 6e 74 65 67 65 72 | 2c 20 47 6f 74 55 73 65 | integer|, GotUse|
|00004280| 72 6c 69 73 74 20 61 73 | 20 55 73 65 72 6c 69 73 |rlist as| Userlis|
|00004290| 74 54 79 70 65 2c 20 47 | 6f 74 53 75 62 6a 65 63 |tType, G|otSubjec|
|000042a0| 74 20 61 73 20 73 74 72 | 69 6e 67 29 73 72 63 6c |t as str|ing)srcl|
|000042b0| 53 74 72 6e 00 00 00 0e | 44 69 6d 20 70 20 61 73 |Strn....|Dim p as|
|000042c0| 20 70 63 68 61 74 00 00 | 73 72 63 6c 53 74 72 6e | pchat..|srclStrn|
|000042d0| 00 00 00 10 44 69 6d 20 | 69 20 61 73 20 69 6e 74 |....Dim |i as int|
|000042e0| 65 67 65 72 73 72 63 6c | 53 74 72 6e 00 00 00 1c |egersrcl|Strn....|
|000042f0| 69 66 20 6d 79 63 6f 6e | 6e 65 63 74 69 6f 6e 77 |if mycon|nectionw|
|00004300| 69 6e 3c 3e 6e 69 6c 20 | 74 68 65 6e 73 72 63 6c |in<>nil |thensrcl|
|00004310| 53 74 72 6e 00 00 00 1b | 66 6f 72 20 69 20 3d 20 |Strn....|for i = |
|00004320| 31 20 74 6f 20 75 62 6f | 75 6e 64 28 70 63 68 61 |1 to ubo|und(pcha|
|00004330| 74 73 29 00 73 72 63 6c | 53 74 72 6e 00 00 00 1f |ts).srcl|Strn....|
|00004340| 69 66 20 70 63 68 61 74 | 73 28 69 29 2e 74 61 73 |if pchat|s(i).tas|
|00004350| 6b 69 64 3d 74 61 73 6b | 69 64 20 74 68 65 6e 00 |kid=task|id then.|
|00004360| 73 72 63 6c 53 74 72 6e | 00 00 00 0b 70 3d 70 63 |srclStrn|....p=pc|
|00004370| 68 61 74 73 28 69 29 00 | 73 72 63 6c 53 74 72 6e |hats(i).|srclStrn|
|00004380| 00 00 00 04 65 78 69 74 | 73 72 63 6c 53 74 72 6e |....exit|srclStrn|
|00004390| 00 00 00 06 65 6e 64 20 | 69 66 00 00 73 72 63 6c |....end |if..srcl|
|000043a0| 53 74 72 6e 00 00 00 04 | 6e 65 78 74 73 72 63 6c |Strn....|nextsrcl|
|000043b0| 53 74 72 6e 00 00 00 0e | 69 66 20 70 3c 3e 6e 69 |Strn....|if p<>ni|
|000043c0| 6c 20 74 68 65 6e 00 00 | 73 72 63 6c 53 74 72 6e |l then..|srclStrn|
|000043d0| 00 00 00 1d 70 2e 75 73 | 65 72 63 6f 75 6e 74 3d |....p.us|ercount=|
|000043e0| 67 6f 74 75 73 65 72 6c | 69 73 74 2e 75 73 65 72 |gotuserl|ist.user|
|000043f0| 73 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 1e |s...srcl|Strn....|
|00004400| 70 2e 63 68 61 6e 6e 65 | 6c 6e 61 6d 65 3d 74 72 |p.channe|lname=tr|
|00004410| 69 6d 28 67 6f 74 73 75 | 62 6a 65 63 74 29 00 00 |im(gotsu|bject)..|
|00004420| 73 72 63 6c 53 74 72 6e | 00 00 00 1c 69 66 20 6c |srclStrn|....if l|
|00004430| 65 6e 28 70 2e 63 68 61 | 6e 6e 65 6c 6e 61 6d 65 |en(p.cha|nnelname|
|00004440| 29 3d 30 20 74 68 65 6e | 73 72 63 6c 53 74 72 6e |)=0 then|srclStrn|
|00004450| 00 00 00 1d 70 2e 63 68 | 61 6e 6e 65 6c 6e 61 6d |....p.ch|annelnam|
|00004460| 65 3d 22 55 6e 74 69 74 | 6c 65 64 20 52 6f 6f 6d |e="Untit|led Room|
|00004470| 22 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 23 |"...srcl|Strn...#|
|00004480| 6d 65 2e 43 68 61 6e 67 | 65 53 75 62 6a 65 63 74 |me.Chang|eSubject|
|00004490| 20 70 2e 49 44 2c 70 2e | 63 68 61 6e 6e 65 6c 6e | p.ID,p.|channeln|
|000044a0| 61 6d 65 00 73 72 63 6c | 53 74 72 6e 00 00 00 06 |ame.srcl|Strn....|
|000044b0| 65 6e 64 20 69 66 00 00 | 73 72 63 6c 53 74 72 6e |end if..|srclStrn|
|000044c0| 00 00 00 06 65 6e 64 20 | 69 66 00 00 73 72 63 6c |....end |if..srcl|
|000044d0| 53 74 72 6e 00 00 00 06 | 65 6e 64 20 69 66 00 00 |Strn....|end if..|
|000044e0| 73 72 63 6c 53 74 72 6e | 00 00 00 07 45 6e 64 20 |srclStrn|....End |
|000044f0| 53 75 62 00 45 6e 64 47 | 49 6e 74 20 00 00 00 65 |Sub.EndG|Int ...e|
|00004500| 45 6e 64 47 49 6e 74 20 | 00 00 00 64 48 49 6e 73 |EndGInt |...dHIns|
|00004510| 47 72 75 70 00 00 05 9c | 00 00 00 66 6e 61 6d 65 |Grup....|...fname|
|00004520| 53 74 72 6e 00 00 00 12 | 47 6f 74 50 63 68 61 74 |Strn....|GotPchat|
|00004530| 49 6e 76 69 74 61 74 69 | 6f 6e 00 00 73 6f 72 63 |Invitati|on..sorc|
|00004540| 47 72 75 70 00 00 05 60 | 00 00 00 67 73 74 73 72 |Grup...`|...gstsr|
|00004550| 49 6e 74 20 00 00 00 1b | 73 74 73 63 49 6e 74 20 |Int ....|stscInt |
|00004560| 00 00 00 18 6e 64 73 72 | 49 6e 74 20 00 00 00 1b |....ndsr|Int ....|
|00004570| 6e 64 73 63 49 6e 74 20 | 00 00 00 18 73 72 63 6c |ndscInt |....srcl|
|00004580| 53 74 72 6e 00 00 00 50 | 53 75 62 20 47 6f 74 50 |Strn...P|Sub GotP|
|00004590| 63 68 61 74 49 6e 76 69 | 74 61 74 69 6f 6e 28 43 |chatInvi|tation(C|
|000045a0| 68 61 74 57 69 6e 64 6f | 77 20 61 73 20 69 6e 74 |hatWindo|w as int|
|000045b0| 65 67 65 72 2c 20 53 6f | 63 6b 65 74 20 61 73 20 |eger, So|cket as |
|000045c0| 69 6e 74 65 67 65 72 2c | 20 4e 69 63 6b 20 61 73 |integer,| Nick as|
|000045d0| 20 73 74 72 69 6e 67 29 | 73 72 63 6c 53 74 72 6e | string)|srclStrn|
|000045e0| 00 00 00 0e 44 69 6d 20 | 77 20 61 73 20 70 63 68 |....Dim |w as pch|
|000045f0| 61 74 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 0d |at..srcl|Strn....|
|00004600| 44 69 6d 20 64 20 61 73 | 20 64 61 74 65 00 00 00 |Dim d as| date...|
|00004610| 73 72 63 6c 53 74 72 6e | 00 00 00 10 44 69 6d 20 |srclStrn|....Dim |
|00004620| 69 20 61 73 20 69 6e 74 | 65 67 65 72 73 72 63 6c |i as int|egersrcl|
|00004630| 53 74 72 6e 00 00 00 16 | 44 69 6d 20 6f 6c 64 63 |Strn....|Dim oldc|
|00004640| 68 61 74 20 61 73 20 62 | 6f 6f 6c 65 61 6e 00 00 |hat as b|oolean..|
|00004650| 73 72 63 6c 53 74 72 6e | 00 00 00 2b 69 66 20 6d |srclStrn|...+if m|
|00004660| 6d 2e 73 6f 63 6b 65 74 | 3c 3e 73 6f 63 6b 65 74 |m.socket|<>socket|
|00004670| 20 6f 72 20 74 69 63 6b | 73 2d 6d 6d 2e 74 3e 33 | or tick|s-mm.t>3|
|00004680| 30 30 20 74 68 65 6e 00 | 73 72 63 6c 53 74 72 6e |00 then.|srclStrn|
|00004690| 00 00 00 1b 66 6f 72 20 | 69 20 3d 20 31 20 74 6f |....for |i = 1 to|
|000046a0| 20 75 62 6f 75 6e 64 28 | 70 63 68 61 74 73 29 00 | ubound(|pchats).|
|000046b0| 73 72 63 6c 53 74 72 6e | 00 00 00 1f 69 66 20 70 |srclStrn|....if p|
|000046c0| 63 68 61 74 73 28 69 29 | 2e 69 64 3d 63 68 61 74 |chats(i)|.id=chat|
|000046d0| 77 69 6e 64 6f 77 20 74 | 68 65 6e 00 73 72 63 6c |window t|hen.srcl|
|000046e0| 53 74 72 6e 00 00 00 0c | 6f 6c 64 63 68 61 74 3d |Strn....|oldchat=|
|000046f0| 74 72 75 65 73 72 63 6c | 53 74 72 6e 00 00 00 04 |truesrcl|Strn....|
|00004700| 65 78 69 74 73 72 63 6c | 53 74 72 6e 00 00 00 06 |exitsrcl|Strn....|
|00004710| 65 6e 64 20 69 66 00 00 | 73 72 63 6c 53 74 72 6e |end if..|srclStrn|
|00004720| 00 00 00 04 6e 65 78 74 | 73 72 63 6c 53 74 72 6e |....next|srclStrn|
|00004730| 00 00 00 13 69 66 20 6e | 6f 74 20 6f 6c 64 63 68 |....if n|ot oldch|
|00004740| 61 74 20 74 68 65 6e 00 | 73 72 63 6c 53 74 72 6e |at then.|srclStrn|
|00004750| 00 00 00 0a 64 3d 6e 65 | 77 20 64 61 74 65 00 00 |....d=ne|w date..|
|00004760| 73 72 63 6c 53 74 72 6e | 00 00 00 51 6c 6f 67 3d |srclStrn|...Qlog=|
|00004770| 6c 6f 67 2b 6e 69 63 6b | 2b 22 73 6f 63 6b 65 74 |log+nick|+"socket|
|00004780| 3a 22 2b 73 74 72 28 73 | 6f 63 6b 65 74 29 2b 22 |:"+str(s|ocket)+"|
|00004790| 20 20 20 20 20 20 22 2b | 64 2e 73 68 6f 72 74 74 |      "+|d.shortt|
|000047a0| 69 6d 65 2b 22 20 20 20 | 43 72 65 61 74 65 64 20 |ime+"   |Created |
|000047b0| 72 6f 6f 6d 22 2b 63 68 | 72 28 31 33 29 00 00 00 |room"+ch|r(13)...|
|000047c0| 73 72 63 6c 53 74 72 6e | 00 00 00 1c 69 66 20 6d |srclStrn|....if m|
|000047d0| 79 63 6f 6e 6e 65 63 74 | 69 6f 6e 77 69 6e 3c 3e |yconnect|ionwin<>|
|000047e0| 6e 69 6c 20 74 68 65 6e | 73 72 63 6c 53 74 72 6e |nil then|srclStrn|
|000047f0| 00 00 00 0b 77 3d 6e 65 | 77 20 70 63 68 61 74 00 |....w=ne|w pchat.|
|00004800| 73 72 63 6c 53 74 72 6e | 00 00 00 09 77 2e 74 3d |srclStrn|....w.t=|
|00004810| 74 69 63 6b 73 00 00 00 | 73 72 63 6c 53 74 72 6e |ticks...|srclStrn|
|00004820| 00 00 00 0d 77 2e 65 78 | 70 69 72 65 3d 74 72 75 |....w.ex|pire=tru|
|00004830| 65 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 0d |e...srcl|Strn....|
|00004840| 77 2e 70 61 72 65 6e 74 | 3d 73 65 6c 66 00 00 00 |w.parent|=self...|
|00004850| 73 72 63 6c 53 74 72 6e | 00 00 00 0f 77 2e 69 64 |srclStrn|....w.id|
|00004860| 3d 63 68 61 74 77 69 6e | 64 6f 77 00 73 72 63 6c |=chatwin|dow.srcl|
|00004870| 53 74 72 6e 00 00 00 22 | 77 2e 74 69 6d 65 3d 64 |Strn..."|w.time=d|
|00004880| 2e 73 68 6f 72 74 64 61 | 74 65 2b 22 2c 22 2b 64 |.shortda|te+","+d|
|00004890| 2e 73 68 6f 72 74 74 69 | 6d 65 00 00 73 72 63 6c |.shortti|me..srcl|
|000048a0| 53 74 72 6e 00 00 00 2a | 77 2e 74 61 73 6b 69 64 |Strn...*|w.taskid|
|000048b0| 3d 48 53 2e 52 65 71 75 | 65 73 74 41 63 63 65 70 |=HS.Requ|estAccep|
|000048c0| 74 50 63 68 61 74 28 43 | 68 61 74 57 69 6e 64 6f |tPchat(C|hatWindo|
|000048d0| 77 29 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 10 |w)..srcl|Strn....|
|000048e0| 77 2e 61 64 6d 69 6e 6e | 61 6d 65 3d 6e 69 63 6b |w.adminn|ame=nick|
|000048f0| 73 72 63 6c 53 74 72 6e | 00 00 00 1c 6d 79 63 6f |srclStrn|....myco|
|00004900| 6e 6e 65 63 74 69 6f 6e | 77 69 6e 2e 72 65 6c 6f |nnection|win.relo|
|00004910| 61 64 20 66 61 6c 73 65 | 73 72 63 6c 53 74 72 6e |ad false|srclStrn|
|00004920| 00 00 00 0f 70 63 68 61 | 74 73 2e 61 70 70 65 6e |....pcha|ts.appen|
|00004930| 64 20 77 00 73 72 63 6c | 53 74 72 6e 00 00 00 1b |d w.srcl|Strn....|
|00004940| 6d 79 63 6f 6e 6e 65 63 | 74 69 6f 6e 77 69 6e 2e |myconnec|tionwin.|
|00004950| 72 65 6c 6f 61 64 20 74 | 72 75 65 00 73 72 63 6c |reload t|rue.srcl|
|00004960| 53 74 72 6e 00 00 00 2f | 6d 79 63 6f 6e 6e 65 63 |Strn.../|myconnec|
|00004970| 74 69 6f 6e 77 69 6e 2e | 52 6f 6f 6d 4c 69 73 74 |tionwin.|RoomList|
|00004980| 2e 63 65 6c 6c 28 30 2c | 31 29 3d 22 41 64 64 65 |.cell(0,|1)="Adde|
|00004990| 64 20 52 6f 6f 6d 22 00 | 73 72 63 6c 53 74 72 6e |d Room".|srclStrn|
|000049a0| 00 00 00 21 6d 79 63 6f | 6e 6e 65 63 74 69 6f 6e |...!myco|nnection|
|000049b0| 77 69 6e 2e 6c 6f 67 69 | 6e 74 69 6d 65 72 2e 6d |win.logi|ntimer.m|
|000049c0| 6f 64 65 3d 31 00 00 00 | 73 72 63 6c 53 74 72 6e |ode=1...|srclStrn|
|000049d0| 00 00 00 06 65 6e 64 20 | 69 66 00 00 73 72 63 6c |....end |if..srcl|
|000049e0| 53 74 72 6e 00 00 00 10 | 46 6c 61 73 68 69 63 6f |Strn....|Flashico|
|000049f0| 6e 2e 6d 6f 64 65 3d 31 | 73 72 63 6c 53 74 72 6e |n.mode=1|srclStrn|
|00004a00| 00 00 00 04 65 6c 73 65 | 73 72 63 6c 53 74 72 6e |....else|srclStrn|
|00004a10| 00 00 00 23 69 3d 48 53 | 2e 52 65 71 75 65 73 74 |...#i=HS|.Request|
|00004a20| 41 63 63 65 70 74 50 63 | 68 61 74 28 43 68 61 74 |AcceptPc|hat(Chat|
|00004a30| 57 69 6e 64 6f 77 29 00 | 73 72 63 6c 53 74 72 6e |Window).|srclStrn|
|00004a40| 00 00 00 06 65 6e 64 20 | 69 66 00 00 73 72 63 6c |....end |if..srcl|
|00004a50| 53 74 72 6e 00 00 00 06 | 65 6e 64 20 69 66 00 00 |Strn....|end if..|
|00004a60| 73 72 63 6c 53 74 72 6e | 00 00 00 10 6d 6d 2e 73 |srclStrn|....mm.s|
|00004a70| 6f 63 6b 65 74 3d 73 6f | 63 6b 65 74 73 72 63 6c |ocket=so|cketsrcl|
|00004a80| 53 74 72 6e 00 00 00 0a | 6d 6d 2e 74 3d 74 69 63 |Strn....|mm.t=tic|
|00004a90| 6b 73 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 07 |ks..srcl|Strn....|
|00004aa0| 45 6e 64 20 53 75 62 00 | 45 6e 64 47 49 6e 74 20 |End Sub.|EndGInt |
|00004ab0| 00 00 00 67 45 6e 64 47 | 49 6e 74 20 00 00 00 66 |...gEndG|Int ...f|
|00004ac0| 48 49 6e 73 47 72 75 70 | 00 00 0a a0 00 00 00 68 |HInsGrup|.......h|
|00004ad0| 6e 61 6d 65 53 74 72 6e | 00 00 00 11 47 6f 74 50 |nameStrn|....GotP|
|00004ae0| 72 69 76 61 74 65 4d 65 | 73 73 61 67 65 00 00 00 |rivateMe|ssage...|
|00004af0| 73 6f 72 63 47 72 75 70 | 00 00 0a 64 00 00 00 69 |sorcGrup|...d...i|
|00004b00| 73 74 73 72 49 6e 74 20 | 00 00 00 39 73 74 73 63 |stsrInt |...9stsc|
|00004b10| 49 6e 74 20 00 00 00 09 | 6e 64 73 72 49 6e 74 20 |Int ....|ndsrInt |
|00004b20| 00 00 00 39 6e 64 73 63 | 49 6e 74 20 00 00 00 09 |...9ndsc|Int ....|
|00004b30| 73 72 63 6c 53 74 72 6e | 00 00 00 5c 53 75 62 20 |srclStrn|...\Sub |
|00004b40| 47 6f 74 50 72 69 76 61 | 74 65 4d 65 73 73 61 67 |GotPriva|teMessag|
|00004b50| 65 28 4d 65 73 73 61 67 | 65 20 61 73 20 73 74 72 |e(Messag|e as str|
|00004b60| 69 6e 67 2c 20 53 6f 63 | 6b 65 74 20 61 73 20 69 |ing, Soc|ket as i|
|00004b70| 6e 74 65 67 65 72 2c 20 | 4e 69 63 6b 20 61 73 20 |nteger, |Nick as |
|00004b80| 73 74 72 69 6e 67 2c 20 | 43 72 65 61 74 65 64 20 |string, |Created |
|00004b90| 61 73 20 44 61 74 65 29 | 73 72 63 6c 53 74 72 6e |as Date)|srclStrn|
|00004ba0| 00 00 00 11 44 69 6d 20 | 62 2c 63 20 61 73 20 73 |....Dim |b,c as s|
|00004bb0| 74 72 69 6e 67 00 00 00 | 73 72 63 6c 53 74 72 6e |tring...|srclStrn|
|00004bc0| 00 00 00 13 44 69 6d 20 | 69 2c 69 69 20 61 73 20 |....Dim |i,ii as |
|00004bd0| 69 6e 74 65 67 65 72 00 | 73 72 63 6c 53 74 72 6e |integer.|srclStrn|
|00004be0| 00 00 00 0d 44 69 6d 20 | 64 20 61 73 20 64 61 74 |....Dim |d as dat|
|00004bf0| 65 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 3c |e...srcl|Strn...<|
|00004c00| 69 66 20 6d 6d 2e 73 6f | 63 6b 65 74 3c 3e 73 6f |if mm.so|cket<>so|
|00004c10| 63 6b 65 74 20 6f 72 20 | 74 69 63 6b 73 2d 6d 6d |cket or |ticks-mm|
|00004c20| 2e 74 3e 33 30 30 20 74 | 68 65 6e 20 2f 2f 53 74 |.t>300 t|hen //St|
|00004c30| 6f 70 73 20 66 6c 6f 6f | 64 69 6e 67 73 72 63 6c |ops floo|dingsrcl|
|00004c40| 53 74 72 6e 00 00 00 0a | 64 3d 6e 65 77 20 64 61 |Strn....|d=new da|
|00004c50| 74 65 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 53 |te..srcl|Strn...S|
|00004c60| 6c 6f 67 3d 6c 6f 67 2b | 6e 69 63 6b 2b 22 73 6f |log=log+|nick+"so|
|00004c70| 63 6b 65 74 3a 22 2b 73 | 74 72 28 73 6f 63 6b 65 |cket:"+s|tr(socke|
|00004c80| 74 29 2b 22 20 20 20 20 | 20 20 22 2b 64 2e 73 68 |t)+"    |  "+d.sh|
|00004c90| 6f 72 74 74 69 6d 65 2b | 22 20 20 50 72 69 76 61 |orttime+|"  Priva|
|00004ca0| 74 65 20 4d 65 73 73 61 | 67 65 22 2b 63 68 72 28 |te Messa|ge"+chr(|
|00004cb0| 31 33 29 00 73 72 63 6c | 53 74 72 6e 00 00 00 1f |13).srcl|Strn....|
|00004cc0| 69 66 20 69 6e 73 74 72 | 28 6d 65 73 73 61 67 65 |if instr|(message|
|00004cd0| 2c 22 68 65 6c 70 22 29 | 3d 30 20 74 68 65 6e 00 |,"help")|=0 then.|
|00004ce0| 73 72 63 6c 53 74 72 6e | 00 00 00 1c 69 66 20 69 |srclStrn|....if i|
|00004cf0| 6e 73 74 72 28 6d 65 73 | 73 61 67 65 2c 22 40 22 |nstr(mes|sage,"@"|
|00004d00| 29 3e 30 20 74 68 65 6e | 73 72 63 6c 53 74 72 6e |)>0 then|srclStrn|
|00004d10| 00 00 00 1f 69 69 3d 76 | 61 6c 28 6e 74 68 66 69 |....ii=v|al(nthfi|
|00004d20| 65 6c 64 28 6d 65 73 73 | 61 67 65 2c 22 40 22 2c |eld(mess|age,"@",|
|00004d30| 32 29 29 00 73 72 63 6c | 53 74 72 6e 00 00 00 04 |2)).srcl|Strn....|
|00004d40| 65 6c 73 65 73 72 63 6c | 53 74 72 6e 00 00 00 1f |elsesrcl|Strn....|
|00004d50| 69 69 3d 76 61 6c 28 6e | 74 68 66 69 65 6c 64 28 |ii=val(n|thfield(|
|00004d60| 6d 65 73 73 61 67 65 2c | 22 40 22 2c 31 29 29 00 |message,|"@",1)).|
|00004d70| 73 72 63 6c 53 74 72 6e | 00 00 00 06 65 6e 64 20 |srclStrn|....end |
|00004d80| 69 66 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |if..srcl|Strn....|
|00004d90| 73 72 63 6c 53 74 72 6e | 00 00 00 0c 69 66 20 69 |srclStrn|....if i|
|00004da0| 69 3d 30 20 74 68 65 6e | 73 72 63 6c 53 74 72 6e |i=0 then|srclStrn|
|00004db0| 00 00 00 11 62 3d 62 2b | 22 48 69 21 22 2b 63 68 |....b=b+|"Hi!"+ch|
|00004dc0| 72 28 31 33 29 00 00 00 | 73 72 63 6c 53 74 72 6e |r(13)...|srclStrn|
|00004dd0| 00 00 00 2f 62 3d 62 2b | 22 49 20 68 6f 73 74 20 |.../b=b+|"I host |
|00004de0| 63 68 61 74 20 72 6f 6f | 6d 73 20 6f 6e 20 74 68 |chat roo|ms on th|
|00004df0| 69 73 20 73 65 72 76 65 | 72 21 22 2b 63 68 72 28 |is serve|r!"+chr(|
|00004e00| 31 33 29 00 73 72 63 6c | 53 74 72 6e 00 00 00 18 |13).srcl|Strn....|
|00004e10| 69 66 20 75 62 6f 75 6e | 64 28 70 63 68 61 74 73 |if uboun|d(pchats|
|00004e20| 29 3e 30 20 74 68 65 6e | 73 72 63 6c 53 74 72 6e |)>0 then|srclStrn|
|00004e30| 00 00 00 34 62 3d 62 2b | 22 54 68 65 73 65 20 61 |...4b=b+|"These a|
|00004e40| 72 65 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 72 |re the c|urrent r|
|00004e50| 6f 6f 6d 73 20 61 76 61 | 69 6c 61 62 6c 65 3a 22 |ooms ava|ilable:"|
|00004e60| 2b 63 68 72 28 31 33 29 | 73 72 63 6c 53 74 72 6e |+chr(13)|srclStrn|
|00004e70| 00 00 00 1b 66 6f 72 20 | 69 20 3d 20 31 20 74 6f |....for |i = 1 to|
|00004e80| 20 75 62 6f 75 6e 64 28 | 70 63 68 61 74 73 29 00 | ubound(|pchats).|
|00004e90| 73 72 63 6c 53 74 72 6e | 00 00 00 18 62 3d 62 2b |srclStrn|....b=b+|
|00004ea0| 22 20 20 20 20 5b 20 52 | 6f 6f 6d 23 22 2b 73 74 |"    [ R|oom#"+st|
|00004eb0| 72 28 69 29 73 72 63 6c | 53 74 72 6e 00 00 00 1d |r(i)srcl|Strn....|
|00004ec0| 69 66 20 70 63 68 61 74 | 73 28 69 29 2e 73 65 63 |if pchat|s(i).sec|
|00004ed0| 72 65 74 49 44 3d 22 22 | 20 74 68 65 6e 00 00 00 |retID=""| then...|
|00004ee0| 73 72 63 6c 53 74 72 6e | 00 00 00 2e 62 3d 62 2b |srclStrn|....b=b+|
|00004ef0| 22 20 20 20 22 2b 70 63 | 68 61 74 73 28 69 29 2e |"   "+pc|hats(i).|
|00004f00| 63 68 61 6e 6e 65 6c 6e | 61 6d 65 2b 22 20 20 20 |channeln|ame+"   |
|00004f10| 5d 22 2b 63 68 72 28 31 | 33 29 00 00 73 72 63 6c |]"+chr(1|3)..srcl|
|00004f20| 53 74 72 6e 00 00 00 04 | 65 6c 73 65 73 72 63 6c |Strn....|elsesrcl|
|00004f30| 53 74 72 6e 00 00 00 32 | 69 66 20 69 6e 73 74 72 |Strn...2|if instr|
|00004f40| 28 70 63 68 61 74 73 28 | 69 29 2e 63 68 61 6e 6e |(pchats(|i).chann|
|00004f50| 65 6c 6e 61 6d 65 2c 22 | 70 61 73 73 77 6f 72 64 |elname,"|password|
|00004f60| 3d 22 29 3d 30 20 74 68 | 65 6e 00 00 73 72 63 6c |=")=0 th|en..srcl|
|00004f70| 53 74 72 6e 00 00 00 3a | 62 3d 62 2b 22 20 20 20 |Strn...:|b=b+"   |
|00004f80| 22 2b 70 63 68 61 74 73 | 28 69 29 2e 63 68 61 6e |"+pchats|(i).chan|
|00004f90| 6e 65 6c 6e 61 6d 65 2b | 22 20 d2 4c 6f 63 6b 65 |nelname+|" .Locke|
|00004fa0| 64 d3 22 2b 22 20 20 20 | 5d 22 2b 63 68 72 28 31 |d."+"   |]"+chr(1|
|00004fb0| 33 29 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 04 |3)..srcl|Strn....|
|00004fc0| 65 6c 73 65 73 72 63 6c | 53 74 72 6e 00 00 00 29 |elsesrcl|Strn...)|
|00004fd0| 62 3d 62 2b 22 20 20 20 | 22 2b 22 20 d2 4c 6f 63 |b=b+"   |"+" .Loc|
|00004fe0| 6b 65 64 20 52 6f 6f 6d | d3 22 2b 22 20 20 20 5d |ked Room|."+"   ]|
|00004ff0| 22 2b 63 68 72 28 31 33 | 29 00 00 00 73 72 63 6c |"+chr(13|)...srcl|
|00005000| 53 74 72 6e 00 00 00 06 | 65 6e 64 20 69 66 00 00 |Strn....|end if..|
|00005010| 73 72 63 6c 53 74 72 6e | 00 00 00 06 65 6e 64 20 |srclStrn|....end |
|00005020| 69 66 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 37 |if..srcl|Strn...7|
|00005030| 62 3d 62 2b 22 20 20 20 | 20 20 20 55 73 65 72 73 |b=b+"   |   Users|
|00005040| 3a 20 20 22 2b 73 74 72 | 28 70 63 68 61 74 73 28 |:  "+str|(pchats(|
|00005050| 69 29 2e 75 73 65 72 63 | 6f 75 6e 74 2d 31 29 2b |i).userc|ount-1)+|
|00005060| 63 68 72 28 31 33 29 00 | 73 72 63 6c 53 74 72 6e |chr(13).|srclStrn|
|00005070| 00 00 00 04 6e 65 78 74 | 73 72 63 6c 53 74 72 6e |....next|srclStrn|
|00005080| 00 00 00 41 62 3d 62 2b | 63 68 72 28 31 33 29 2b |...Ab=b+|chr(13)+|
|00005090| 22 54 6f 20 6a 6f 69 6e | 20 61 20 72 6f 6f 6d 2c |"To join| a room,|
|000050a0| 20 72 65 70 6c 79 20 77 | 69 74 68 20 74 68 65 20 | reply w|ith the |
|000050b0| 72 6f 6f 6d 20 6e 75 6d | 62 65 72 2e 22 2b 63 68 |room num|ber."+ch|
|000050c0| 72 28 31 33 29 00 00 00 | 73 72 63 6c 53 74 72 6e |r(13)...|srclStrn|
|000050d0| 00 00 00 04 65 6c 73 65 | 73 72 63 6c 53 74 72 6e |....else|srclStrn|
|000050e0| 00 00 00 3b 62 3d 62 2b | 22 43 75 72 72 65 6e 74 |...;b=b+|"Current|
|000050f0| 6c 79 2c 20 74 68 65 72 | 65 20 61 72 65 20 6e 6f |ly, ther|e are no|
|00005100| 20 63 68 61 74 20 72 6f | 6f 6d 73 20 61 76 61 69 | chat ro|oms avai|
|00005110| 6c 61 62 6c 65 2c 22 2b | 63 68 72 28 31 33 29 00 |lable,"+|chr(13).|
|00005120| 73 72 63 6c 53 74 72 6e | 00 00 00 06 65 6e 64 20 |srclStrn|....end |
|00005130| 69 66 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 48 |if..srcl|Strn...H|
|00005140| 62 3d 62 2b 22 54 6f 20 | 63 72 65 61 74 65 20 61 |b=b+"To |create a|
|00005150| 20 6e 65 77 20 72 6f 6f | 6d 2c 20 69 6e 76 69 74 | new roo|m, invit|
|00005160| 65 20 6d 65 20 74 6f 20 | 61 20 63 68 61 74 2c 20 |e me to |a chat, |
|00005170| 61 6e 64 20 63 68 61 6e | 67 65 20 69 74 73 20 73 |and chan|ge its s|
|00005180| 75 62 6a 65 63 74 2e 22 | 73 72 63 6c 53 74 72 6e |ubject."|srclStrn|
|00005190| 00 00 00 2e 49 67 6e 6f | 72 65 52 65 70 6c 79 3d |....Igno|reReply=|
|000051a0| 48 53 2e 52 65 71 75 65 | 73 74 50 72 69 76 61 74 |HS.Reque|stPrivat|
|000051b0| 65 4d 65 73 73 61 67 65 | 28 53 6f 63 6b 65 74 2c |eMessage|(Socket,|
|000051c0| 62 29 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 04 |b)..srcl|Strn....|
|000051d0| 65 6c 73 65 73 72 63 6c | 53 74 72 6e 00 00 00 24 |elsesrcl|Strn...$|
|000051e0| 69 66 20 69 69 3e 30 20 | 61 6e 64 20 69 69 3c 75 |if ii>0 |and ii<u|
|000051f0| 62 6f 75 6e 64 28 70 63 | 68 61 74 73 29 2b 31 20 |bound(pc|hats)+1 |
|00005200| 74 68 65 6e 73 72 63 6c | 53 74 72 6e 00 00 00 22 |thensrcl|Strn..."|
|00005210| 69 66 20 6c 65 6e 28 70 | 63 68 61 74 73 28 69 69 |if len(p|chats(ii|
|00005220| 29 2e 73 65 63 72 65 74 | 49 44 29 3d 30 20 74 68 |).secret|ID)=0 th|
|00005230| 65 6e 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 36 |en..srcl|Strn...6|
|00005240| 69 67 6e 6f 72 65 52 65 | 70 6c 79 3d 6d 65 2e 52 |ignoreRe|ply=me.R|
|00005250| 65 71 75 65 73 74 41 64 | 64 54 6f 50 63 68 61 74 |equestAd|dToPchat|
|00005260| 28 70 63 68 61 74 73 28 | 69 69 29 2e 49 44 2c 73 |(pchats(|ii).ID,s|
|00005270| 6f 63 6b 65 74 29 00 00 | 73 72 63 6c 53 74 72 6e |ocket)..|srclStrn|
|00005280| 00 00 00 04 65 6c 73 65 | 73 72 63 6c 53 74 72 6e |....else|srclStrn|
|00005290| 00 00 00 33 69 66 20 6e | 74 68 66 69 65 6c 64 28 |...3if n|thfield(|
|000052a0| 6d 65 73 73 61 67 65 2c | 22 40 22 2c 31 29 3d 70 |message,|"@",1)=p|
|000052b0| 63 68 61 74 73 28 69 69 | 29 2e 73 65 63 72 65 74 |chats(ii|).secret|
|000052c0| 49 44 20 74 68 65 6e 00 | 73 72 63 6c 53 74 72 6e |ID then.|srclStrn|
|000052d0| 00 00 00 36 69 67 6e 6f | 72 65 52 65 70 6c 79 3d |...6igno|reReply=|
|000052e0| 6d 65 2e 52 65 71 75 65 | 73 74 41 64 64 54 6f 50 |me.Reque|stAddToP|
|000052f0| 63 68 61 74 28 70 63 68 | 61 74 73 28 69 69 29 2e |chat(pch|ats(ii).|
|00005300| 49 44 2c 73 6f 63 6b 65 | 74 29 00 00 73 72 63 6c |ID,socke|t)..srcl|
|00005310| 53 74 72 6e 00 00 00 04 | 65 6c 73 65 73 72 63 6c |Strn....|elsesrcl|
|00005320| 53 74 72 6e 00 00 00 3d | 49 67 6e 6f 72 65 52 65 |Strn...=|IgnoreRe|
|00005330| 70 6c 79 3d 48 53 2e 52 | 65 71 75 65 73 74 50 72 |ply=HS.R|equestPr|
|00005340| 69 76 61 74 65 4d 65 73 | 73 61 67 65 28 53 6f 63 |ivateMes|sage(Soc|
|00005350| 6b 65 74 2c 22 57 72 6f | 6e 67 20 70 61 73 73 77 |ket,"Wro|ng passw|
|00005360| 6f 72 64 22 29 00 00 00 | 73 72 63 6c 53 74 72 6e |ord")...|srclStrn|
|00005370| 00 00 00 06 65 6e 64 20 | 69 66 00 00 73 72 63 6c |....end |if..srcl|
|00005380| 53 74 72 6e 00 00 00 06 | 65 6e 64 20 69 66 00 00 |Strn....|end if..|
|00005390| 73 72 63 6c 53 74 72 6e | 00 00 00 06 65 6e 64 20 |srclStrn|....end |
|000053a0| 69 66 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 06 |if..srcl|Strn....|
|000053b0| 65 6e 64 20 69 66 00 00 | 73 72 63 6c 53 74 72 6e |end if..|srclStrn|
|000053c0| 00 00 00 04 65 6c 73 65 | 73 72 63 6c 53 74 72 6e |....else|srclStrn|
|000053d0| 00 00 00 34 62 3d 22 54 | 68 65 20 4d 6f 64 20 42 |...4b="T|he Mod B|
|000053e0| 6f 74 20 77 61 73 20 63 | 72 65 61 74 65 64 20 62 |ot was c|reated b|
|000053f0| 79 20 52 69 63 6b 20 54 | 68 6f 6d 70 73 6f 6e 22 |y Rick T|hompson"|
|00005400| 2b 63 68 72 28 31 33 29 | 73 72 63 6c 53 74 72 6e |+chr(13)|srclStrn|
|00005410| 00 00 00 2f 62 3d 62 2b | 22 54 6f 20 6c 6f 67 69 |.../b=b+|"To logi|
|00005420| 6e 20 74 6f 20 61 20 6c | 6f 63 6b 65 64 20 72 6f |n to a l|ocked ro|
|00005430| 6f 6d 2c 20 73 69 6d 70 | 6c 79 22 2b 63 68 72 28 |om, simp|ly"+chr(|
|00005440| 31 33 29 00 73 72 63 6c | 53 74 72 6e 00 00 00 48 |13).srcl|Strn...H|
|00005450| 62 3d 62 2b 22 50 4d 20 | 6d 65 20 74 68 65 20 70 |b=b+"PM |me the p|
|00005460| 61 73 73 77 6f 72 64 2c | 20 66 6f 6c 6c 6f 77 65 |assword,| followe|
|00005470| 64 20 62 79 20 61 20 d2 | 40 d3 2c 74 68 65 6e 20 |d by a .|@.,then |
|00005480| 74 68 65 20 72 6f 6f 6d | 20 6e 75 6d 62 65 72 22 |the room| number"|
|00005490| 2b 63 68 72 28 31 33 29 | 73 72 63 6c 53 74 72 6e |+chr(13)|srclStrn|
|000054a0| 00 00 00 2e 49 67 6e 6f | 72 65 52 65 70 6c 79 3d |....Igno|reReply=|
|000054b0| 48 53 2e 52 65 71 75 65 | 73 74 50 72 69 76 61 74 |HS.Reque|stPrivat|
|000054c0| 65 4d 65 73 73 61 67 65 | 28 53 6f 63 6b 65 74 2c |eMessage|(Socket,|
|000054d0| 62 29 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 06 |b)..srcl|Strn....|
|000054e0| 65 6e 64 20 69 66 00 00 | 73 72 63 6c 53 74 72 6e |end if..|srclStrn|
|000054f0| 00 00 00 10 46 6c 61 73 | 68 69 63 6f 6e 2e 6d 6f |....Flas|hicon.mo|
|00005500| 64 65 3d 31 73 72 63 6c | 53 74 72 6e 00 00 00 06 |de=1srcl|Strn....|
|00005510| 65 6e 64 20 69 66 00 00 | 73 72 63 6c 53 74 72 6e |end if..|srclStrn|
|00005520| 00 00 00 10 6d 6d 2e 73 | 6f 63 6b 65 74 3d 73 6f |....mm.s|ocket=so|
|00005530| 63 6b 65 74 73 72 63 6c | 53 74 72 6e 00 00 00 0a |cketsrcl|Strn....|
|00005540| 6d 6d 2e 74 3d 74 69 63 | 6b 73 00 00 73 72 63 6c |mm.t=tic|ks..srcl|
|00005550| 53 74 72 6e 00 00 00 07 | 45 6e 64 20 53 75 62 00 |Strn....|End Sub.|
|00005560| 45 6e 64 47 49 6e 74 20 | 00 00 00 69 45 6e 64 47 |EndGInt |...iEndG|
|00005570| 49 6e 74 20 00 00 00 68 | 48 49 6e 73 47 72 75 70 |Int ...h|HInsGrup|
|00005580| 00 00 02 68 00 00 00 6a | 6e 61 6d 65 53 74 72 6e |...h...j|nameStrn|
|00005590| 00 00 00 0c 4c 6f 67 69 | 6e 53 75 63 63 65 73 73 |....Logi|nSuccess|
|000055a0| 73 6f 72 63 47 72 75 70 | 00 00 02 34 00 00 00 6b |sorcGrup|...4...k|
|000055b0| 73 74 73 72 49 6e 74 20 | 00 00 00 07 73 74 73 63 |stsrInt |....stsc|
|000055c0| 49 6e 74 20 00 00 00 17 | 6e 64 73 72 49 6e 74 20 |Int ....|ndsrInt |
|000055d0| 00 00 00 07 6e 64 73 63 | 49 6e 74 20 00 00 00 17 |....ndsc|Int ....|
|000055e0| 73 72 63 6c 53 74 72 6e | 00 00 00 4f 53 75 62 20 |srclStrn|...OSub |
|000055f0| 4c 6f 67 69 6e 53 75 63 | 63 65 73 73 28 54 61 73 |LoginSuc|cess(Tas|
|00005600| 6b 49 44 20 61 73 20 69 | 6e 74 65 67 65 72 2c 20 |kID as i|nteger, |
|00005610| 45 48 50 76 65 72 73 69 | 6f 6e 20 61 73 20 69 6e |EHPversi|on as in|
|00005620| 74 65 67 65 72 2c 20 4d | 79 53 6f 63 6b 65 74 20 |teger, M|ySocket |
|00005630| 61 73 20 69 6e 74 65 67 | 65 72 29 00 73 72 63 6c |as integ|er).srcl|
|00005640| 53 74 72 6e 00 00 00 23 | 6c 6f 67 3d 6c 6f 67 2b |Strn...#|log=log+|
|00005650| 22 4c 6f 67 69 6e 20 53 | 75 63 63 65 73 73 2e 20 |"Login S|uccess. |
|00005660| 20 22 20 2b 63 68 72 28 | 31 33 29 00 73 72 63 6c | " +chr(|13).srcl|
|00005670| 53 74 72 6e 00 00 00 1c | 69 66 20 6d 79 63 6f 6e |Strn....|if mycon|
|00005680| 6e 65 63 74 69 6f 6e 77 | 69 6e 3c 3e 6e 69 6c 20 |nectionw|in<>nil |
|00005690| 74 68 65 6e 73 72 63 6c | 53 74 72 6e 00 00 00 30 |thensrcl|Strn...0|
|000056a0| 6d 79 63 6f 6e 6e 65 63 | 74 69 6f 6e 77 69 6e 2e |myconnec|tionwin.|
|000056b0| 70 75 73 68 42 75 74 74 | 6f 6e 32 2e 63 61 70 74 |pushButt|on2.capt|
|000056c0| 69 6f 6e 3d 22 44 69 73 | 63 6f 6e 6e 65 63 74 22 |ion="Dis|connect"|
|000056d0| 73 72 63 6c 53 74 72 6e | 00 00 00 21 6d 79 63 6f |srclStrn|...!myco|
|000056e0| 6e 6e 65 63 74 69 6f 6e | 77 69 6e 2e 6c 6f 67 69 |nnection|win.logi|
|000056f0| 6e 74 69 6d 65 72 2e 6d | 6f 64 65 3d 31 00 00 00 |ntimer.m|ode=1...|
|00005700| 73 72 63 6c 53 74 72 6e | 00 00 00 28 6d 79 63 6f |srclStrn|...(myco|
|00005710| 6e 6e 65 63 74 69 6f 6e | 77 69 6e 2e 41 64 64 72 |nnection|win.Addr|
|00005720| 65 73 73 62 6f 78 2e 65 | 6e 61 62 6c 65 64 3d 66 |essbox.e|nabled=f|
|00005730| 61 6c 73 65 73 72 63 6c | 53 74 72 6e 00 00 00 26 |alsesrcl|Strn...&|
|00005740| 6d 79 63 6f 6e 6e 65 63 | 74 69 6f 6e 77 69 6e 2e |myconnec|tionwin.|
|00005750| 4c 6f 67 69 6e 42 6f 78 | 2e 65 6e 61 62 6c 65 64 |LoginBox|.enabled|
|00005760| 3d 66 61 6c 73 65 00 00 | 73 72 63 6c 53 74 72 6e |=false..|srclStrn|
|00005770| 00 00 00 25 6d 79 63 6f | 6e 6e 65 63 74 69 6f 6e |...%myco|nnection|
|00005780| 77 69 6e 2e 50 61 73 73 | 42 6f 78 2e 65 6e 61 62 |win.Pass|Box.enab|
|00005790| 6c 65 64 3d 66 61 6c 73 | 65 00 00 00 73 72 63 6c |led=fals|e...srcl|
|000057a0| 53 74 72 6e 00 00 00 06 | 65 6e 64 20 69 66 00 00 |Strn....|end if..|
|000057b0| 73 72 63 6c 53 74 72 6e | 00 00 00 10 46 6c 61 73 |srclStrn|....Flas|
|000057c0| 68 69 63 6f 6e 2e 6d 6f | 64 65 3d 31 73 72 63 6c |hicon.mo|de=1srcl|
|000057d0| 53 74 72 6e 00 00 00 07 | 45 6e 64 20 53 75 62 00 |Strn....|End Sub.|
|000057e0| 45 6e 64 47 49 6e 74 20 | 00 00 00 6b 45 6e 64 47 |EndGInt |...kEndG|
|000057f0| 49 6e 74 20 00 00 00 6a | 48 49 6e 73 47 72 75 70 |Int ...j|HInsGrup|
|00005800| 00 00 01 6c 00 00 00 6c | 6e 61 6d 65 53 74 72 6e |...l...l|nameStrn|
|00005810| 00 00 00 0d 43 6f 6e 6e | 65 63 74 46 61 69 6c 65 |....Conn|ectFaile|
|00005820| 64 00 00 00 73 6f 72 63 | 47 72 75 70 00 00 01 34 |d...sorc|Grup...4|
|00005830| 00 00 00 6d 73 74 73 72 | 49 6e 74 20 00 00 00 03 |...mstsr|Int ....|
|00005840| 73 74 73 63 49 6e 74 20 | 00 00 00 2a 6e 64 73 72 |stscInt |...*ndsr|
|00005850| 49 6e 74 20 00 00 00 03 | 6e 64 73 63 49 6e 74 20 |Int ....|ndscInt |
|00005860| 00 00 00 2a 73 72 63 6c | 53 74 72 6e 00 00 00 29 |...*srcl|Strn...)|
|00005870| 53 75 62 20 43 6f 6e 6e | 65 63 74 46 61 69 6c 65 |Sub Conn|ectFaile|
|00005880| 64 28 45 72 72 6f 72 4d | 65 73 73 61 67 65 20 61 |d(ErrorM|essage a|
|00005890| 73 20 73 74 72 69 6e 67 | 29 00 00 00 73 72 63 6c |s string|)...srcl|
|000058a0| 53 74 72 6e 00 00 00 1c | 69 66 20 6d 79 63 6f 6e |Strn....|if mycon|
|000058b0| 6e 65 63 74 69 6f 6e 77 | 69 6e 3c 3e 6e 69 6c 20 |nectionw|in<>nil |
|000058c0| 74 68 65 6e 73 72 63 6c | 53 74 72 6e 00 00 00 34 |thensrcl|Strn...4|
|000058d0| 6c 6f 67 3d 6c 6f 67 2b | 22 43 6f 6e 6e 65 63 74 |log=log+|"Connect|
|000058e0| 69 6f 6e 20 66 61 69 6c | 65 64 2e 20 20 22 20 2b |ion fail|ed.  " +|
|000058f0| 65 72 72 6f 72 6d 65 73 | 73 61 67 65 2b 63 68 72 |errormes|sage+chr|
|00005900| 28 31 33 29 73 72 63 6c | 53 74 72 6e 00 00 00 2a |(13)srcl|Strn...*|
|00005910| 6d 79 63 6f 6e 6e 65 63 | 74 69 6f 6e 77 69 6e 2e |myconnec|tionwin.|
|00005920| 50 72 6f 67 72 65 73 73 | 42 61 72 31 2e 76 69 73 |Progress|Bar1.vis|
|00005930| 69 62 6c 65 3d 66 61 6c | 73 65 00 00 73 72 63 6c |ible=fal|se..srcl|
|00005940| 53 74 72 6e 00 00 00 06 | 65 6e 64 20 69 66 00 00 |Strn....|end if..|
|00005950| 73 72 63 6c 53 74 72 6e | 00 00 00 07 45 6e 64 20 |srclStrn|....End |
|00005960| 53 75 62 00 45 6e 64 47 | 49 6e 74 20 00 00 00 6d |Sub.EndG|Int ...m|
|00005970| 45 6e 64 47 49 6e 74 20 | 00 00 00 6c 48 49 6e 73 |EndGInt |...lHIns|
|00005980| 47 72 75 70 00 00 01 78 | 00 00 00 6e 6e 61 6d 65 |Grup...x|...nname|
|00005990| 53 74 72 6e 00 00 00 0e | 43 6f 6e 6e 65 63 74 53 |Strn....|ConnectS|
|000059a0| 75 63 63 65 73 73 00 00 | 73 6f 72 63 47 72 75 70 |uccess..|sorcGrup|
|000059b0| 00 00 01 40 00 00 00 6f | 73 74 73 72 49 6e 74 20 |...@...o|stsrInt |
|000059c0| 00 00 00 03 73 74 73 63 | 49 6e 74 20 00 00 00 51 |....stsc|Int ...Q|
|000059d0| 6e 64 73 72 49 6e 74 20 | 00 00 00 03 6e 64 73 63 |ndsrInt |....ndsc|
|000059e0| 49 6e 74 20 00 00 00 51 | 73 72 63 6c 53 74 72 6e |Int ...Q|srclStrn|
|000059f0| 00 00 00 14 53 75 62 20 | 43 6f 6e 6e 65 63 74 53 |....Sub |ConnectS|
|00005a00| 75 63 63 65 73 73 28 29 | 73 72 63 6c 53 74 72 6e |uccess()|srclStrn|
|00005a10| 00 00 00 1c 69 66 20 6d | 79 63 6f 6e 6e 65 63 74 |....if m|yconnect|
|00005a20| 69 6f 6e 77 69 6e 3c 3e | 6e 69 6c 20 74 68 65 6e |ionwin<>|nil then|
|00005a30| 73 72 63 6c 53 74 72 6e | 00 00 00 1c 6c 6f 67 3d |srclStrn|....log=|
|00005a40| 6c 6f 67 2b 22 43 6f 6e | 6e 65 63 74 65 64 21 22 |log+"Con|nected!"|
|00005a50| 2b 63 68 72 28 31 33 29 | 73 72 63 6c 53 74 72 6e |+chr(13)|srclStrn|
|00005a60| 00 00 00 65 49 67 6e 6f | 72 65 52 65 70 6c 79 3d |...eIgno|reReply=|
|00005a70| 48 53 2e 52 65 71 75 65 | 73 74 4c 6f 67 69 6e 28 |HS.Reque|stLogin(|
|00005a80| 6d 79 63 6f 6e 6e 65 63 | 74 69 6f 6e 77 69 6e 2e |myconnec|tionwin.|
|00005a90| 4c 6f 67 69 6e 42 6f 78 | 2e 74 65 78 74 2c 6d 79 |LoginBox|.text,my|
|00005aa0| 63 6f 6e 6e 65 63 74 69 | 6f 6e 77 69 6e 2e 50 61 |connecti|onwin.Pa|
|00005ab0| 73 73 42 6f 78 2e 74 65 | 78 74 2c 6d 79 6e 61 6d |ssBox.te|xt,mynam|
|00005ac0| 65 2c 2d 32 30 30 31 31 | 29 00 00 00 73 72 63 6c |e,-20011|)...srcl|
|00005ad0| 53 74 72 6e 00 00 00 06 | 65 6e 64 20 69 66 00 00 |Strn....|end if..|
|00005ae0| 73 72 63 6c 53 74 72 6e | 00 00 00 07 45 6e 64 20 |srclStrn|....End |
|00005af0| 53 75 62 00 45 6e 64 47 | 49 6e 74 20 00 00 00 6f |Sub.EndG|Int ...o|
|00005b00| 45 6e 64 47 49 6e 74 20 | 00 00 00 6e 48 49 6e 73 |EndGInt |...nHIns|
|00005b10| 47 72 75 70 00 00 00 cc | 00 00 00 70 6e 61 6d 65 |Grup....|...pname|
|00005b20| 53 74 72 6e 00 00 00 15 | 50 72 69 76 61 74 65 43 |Strn....|PrivateC|
|00005b30| 68 61 74 41 64 64 53 75 | 63 63 65 73 73 00 00 00 |hatAddSu|ccess...|
|00005b40| 73 6f 72 63 47 72 75 70 | 00 00 00 8c 00 00 00 71 |sorcGrup|.......q|
|00005b50| 73 74 73 72 49 6e 74 20 | 00 00 00 01 73 74 73 63 |stsrInt |....stsc|
|00005b60| 49 6e 74 20 00 00 00 00 | 6e 64 73 72 49 6e 74 20 |Int ....|ndsrInt |
|00005b70| 00 00 00 01 6e 64 73 63 | 49 6e 74 20 00 00 00 00 |....ndsc|Int ....|
|00005b80| 73 72 63 6c 53 74 72 6e | 00 00 00 2c 53 75 62 20 |srclStrn|...,Sub |
|00005b90| 50 72 69 76 61 74 65 43 | 68 61 74 41 64 64 53 75 |PrivateC|hatAddSu|
|00005ba0| 63 63 65 73 73 28 54 61 | 73 6b 49 44 20 61 73 20 |ccess(Ta|skID as |
|00005bb0| 69 6e 74 65 67 65 72 29 | 73 72 63 6c 53 74 72 6e |integer)|srclStrn|
|00005bc0| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 07 |....srcl|Strn....|
|00005bd0| 45 6e 64 20 53 75 62 00 | 45 6e 64 47 49 6e 74 20 |End Sub.|EndGInt |
|00005be0| 00 00 00 71 45 6e 64 47 | 49 6e 74 20 00 00 00 70 |...qEndG|Int ...p|
|00005bf0| 45 6e 64 47 49 6e 74 20 | 00 00 00 33 43 42 68 76 |EndGInt |...3CBhv|
|00005c00| 47 72 75 70 00 00 01 38 | 00 00 00 72 4e 61 6d 65 |Grup...8|...rName|
|00005c10| 53 74 72 6e 00 00 00 00 | 53 69 7a 65 49 6e 74 20 |Strn....|SizeInt |
|00005c20| 00 00 00 28 53 75 70 72 | 53 74 72 6e 00 00 00 05 |...(Supr|Strn....|
|00005c30| 54 69 6d 65 72 00 00 00 | 62 4e 74 72 49 6e 74 20 |Timer...|bNtrInt |
|00005c40| 00 00 00 00 48 49 6e 73 | 47 72 75 70 00 00 00 e4 |....HIns|Grup....|
|00005c50| 00 00 00 73 6e 61 6d 65 | 53 74 72 6e 00 00 00 06 |...sname|Strn....|
|00005c60| 41 63 74 69 6f 6e 00 00 | 73 6f 72 63 47 72 75 70 |Action..|sorcGrup|
|00005c70| 00 00 00 b4 00 00 00 74 | 73 74 73 72 49 6e 74 20 |.......t|stsrInt |
|00005c80| 00 00 00 01 73 74 73 63 | 49 6e 74 20 00 00 00 09 |....stsc|Int ....|
|00005c90| 6e 64 73 72 49 6e 74 20 | 00 00 00 01 6e 64 73 63 |ndsrInt |....ndsc|
|00005ca0| 49 6e 74 20 00 00 00 09 | 73 72 63 6c 53 74 72 6e |Int ....|srclStrn|
|00005cb0| 00 00 00 0c 53 75 62 20 | 41 63 74 69 6f 6e 28 29 |....Sub |Action()|
|00005cc0| 73 72 63 6c 53 74 72 6e | 00 00 00 10 72 65 73 65 |srclStrn|....rese|
|00005cd0| 74 69 63 6f 6e 2e 6d 6f | 64 65 3d 31 73 72 63 6c |ticon.mo|de=1srcl|
|00005ce0| 53 74 72 6e 00 00 00 1f | 48 53 2e 43 68 61 6e 67 |Strn....|HS.Chang|
|00005cf0| 65 4e 69 63 6b 49 63 6f | 6e 20 6d 79 6e 61 6d 65 |eNickIco|n myname|
|00005d00| 2c 2d 32 30 30 31 30 00 | 73 72 63 6c 53 74 72 6e |,-20010.|srclStrn|
|00005d10| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 07 |....srcl|Strn....|
|00005d20| 45 6e 64 20 53 75 62 00 | 45 6e 64 47 49 6e 74 20 |End Sub.|EndGInt |
|00005d30| 00 00 00 74 45 6e 64 47 | 49 6e 74 20 00 00 00 73 |...tEndG|Int ...s|
|00005d40| 45 6e 64 47 49 6e 74 20 | 00 00 00 72 43 42 68 76 |EndGInt |...rCBhv|
|00005d50| 47 72 75 70 00 00 01 10 | 00 00 00 75 4e 61 6d 65 |Grup....|...uName|
|00005d60| 53 74 72 6e 00 00 00 00 | 53 69 7a 65 49 6e 74 20 |Strn....|SizeInt |
|00005d70| 00 00 00 28 53 75 70 72 | 53 74 72 6e 00 00 00 05 |...(Supr|Strn....|
|00005d80| 54 69 6d 65 72 00 00 00 | 62 4e 74 72 49 6e 74 20 |Timer...|bNtrInt |
|00005d90| 00 00 00 00 48 49 6e 73 | 47 72 75 70 00 00 00 bc |....HIns|Grup....|
|00005da0| 00 00 00 76 6e 61 6d 65 | 53 74 72 6e 00 00 00 06 |...vname|Strn....|
|00005db0| 41 63 74 69 6f 6e 00 00 | 73 6f 72 63 47 72 75 70 |Action..|sorcGrup|
|00005dc0| 00 00 00 8c 00 00 00 77 | 73 74 73 72 49 6e 74 20 |.......w|stsrInt |
|00005dd0| 00 00 00 01 73 74 73 63 | 49 6e 74 20 00 00 00 18 |....stsc|Int ....|
|00005de0| 6e 64 73 72 49 6e 74 20 | 00 00 00 01 6e 64 73 63 |ndsrInt |....ndsc|
|00005df0| 49 6e 74 20 00 00 00 18 | 73 72 63 6c 53 74 72 6e |Int ....|srclStrn|
|00005e00| 00 00 00 0c 53 75 62 20 | 41 63 74 69 6f 6e 28 29 |....Sub |Action()|
|00005e10| 73 72 63 6c 53 74 72 6e | 00 00 00 1f 48 53 2e 43 |srclStrn|....HS.C|
|00005e20| 68 61 6e 67 65 4e 69 63 | 6b 49 63 6f 6e 20 4d 79 |hangeNic|kIcon My|
|00005e30| 4e 61 6d 65 2c 2d 32 30 | 30 31 31 00 73 72 63 6c |Name,-20|011.srcl|
|00005e40| 53 74 72 6e 00 00 00 07 | 45 6e 64 20 53 75 62 00 |Strn....|End Sub.|
|00005e50| 45 6e 64 47 49 6e 74 20 | 00 00 00 77 45 6e 64 47 |EndGInt |...wEndG|
|00005e60| 49 6e 74 20 00 00 00 76 | 45 6e 64 47 49 6e 74 20 |Int ...v|EndGInt |
|00005e70| 00 00 00 75 43 42 68 76 | 47 72 75 70 00 00 03 88 |...uCBhv|Grup....|
|00005e80| 00 00 00 78 4e 61 6d 65 | 53 74 72 6e 00 00 00 00 |...xName|Strn....|
|00005e90| 53 69 7a 65 49 6e 74 20 | 00 00 00 28 53 75 70 72 |SizeInt |...(Supr|
|00005ea0| 53 74 72 6e 00 00 00 05 | 54 69 6d 65 72 00 00 00 |Strn....|Timer...|
|00005eb0| 62 4e 74 72 49 6e 74 20 | 00 00 00 00 48 49 6e 73 |bNtrInt |....HIns|
|00005ec0| 47 72 75 70 00 00 03 34 | 00 00 00 79 6e 61 6d 65 |Grup...4|...yname|
|00005ed0| 53 74 72 6e 00 00 00 06 | 41 63 74 69 6f 6e 00 00 |Strn....|Action..|
|00005ee0| 73 6f 72 63 47 72 75 70 | 00 00 03 04 00 00 00 7a |sorcGrup|.......z|
|00005ef0| 73 74 73 72 49 6e 74 20 | 00 00 00 0a 73 74 73 63 |stsrInt |....stsc|
|00005f00| 49 6e 74 20 00 00 00 15 | 6e 64 73 72 49 6e 74 20 |Int ....|ndsrInt |
|00005f10| 00 00 00 0a 6e 64 73 63 | 49 6e 74 20 00 00 00 15 |....ndsc|Int ....|
|00005f20| 73 72 63 6c 53 74 72 6e | 00 00 00 0c 53 75 62 20 |srclStrn|....Sub |
|00005f30| 41 63 74 69 6f 6e 28 29 | 73 72 63 6c 53 74 72 6e |Action()|srclStrn|
|00005f40| 00 00 00 10 44 69 6d 20 | 69 20 61 73 20 69 6e 74 |....Dim |i as int|
|00005f50| 65 67 65 72 73 72 63 6c | 53 74 72 6e 00 00 00 0d |egersrcl|Strn....|
|00005f60| 44 69 6d 20 64 20 61 73 | 20 64 61 74 65 00 00 00 |Dim d as| date...|
|00005f70| 73 72 63 6c 53 74 72 6e | 00 00 00 31 69 66 20 6d |srclStrn|...1if m|
|00005f80| 79 63 6f 6e 6e 65 63 74 | 69 6f 6e 77 69 6e 3c 3e |yconnect|ionwin<>|
|00005f90| 6e 69 6c 20 61 6e 64 20 | 75 62 6f 75 6e 64 28 70 |nil and |ubound(p|
|00005fa0| 63 68 61 74 73 29 3e 30 | 20 74 68 65 6e 00 00 00 |chats)>0| then...|
|00005fb0| 73 72 63 6c 53 74 72 6e | 00 00 00 19 64 3d 6e 65 |srclStrn|....d=ne|
|00005fc0| 77 20 64 61 74 65 2f 2f | 20 55 73 65 64 20 66 6f |w date//| Used fo|
|00005fd0| 72 20 6c 6f 67 00 00 00 | 73 72 63 6c 53 74 72 6e |r log...|srclStrn|
|00005fe0| 00 00 00 1b 66 6f 72 20 | 69 20 3d 20 31 20 74 6f |....for |i = 1 to|
|00005ff0| 20 75 62 6f 75 6e 64 28 | 70 63 68 61 74 73 29 00 | ubound(|pchats).|
|00006000| 73 72 63 6c 53 74 72 6e | 00 00 00 31 69 66 20 70 |srclStrn|...1if p|
|00006010| 63 68 61 74 73 28 69 29 | 2e 75 73 65 72 63 6f 75 |chats(i)|.usercou|
|00006020| 6e 74 3d 31 20 74 68 65 | 6e 2f 2f 42 6f 74 20 43 |nt=1 the|n//Bot C|
|00006030| 6f 75 6e 74 73 20 61 73 | 20 4f 6e 65 2e 00 00 00 |ounts as| One....|
|00006040| 73 72 63 6c 53 74 72 6e | 00 00 00 6e 69 66 20 74 |srclStrn|...nif t|
|00006050| 69 63 6b 73 2d 70 63 68 | 61 74 73 28 69 29 2e 74 |icks-pch|ats(i).t|
|00006060| 3e 36 30 30 30 2a 35 20 | 61 6e 64 20 70 63 68 61 |>6000*5 |and pcha|
|00006070| 74 73 28 69 29 2e 65 78 | 70 69 72 65 3d 74 72 75 |ts(i).ex|pire=tru|
|00006080| 65 20 74 68 65 6e 20 2f | 2f 35 3d 54 68 65 20 6e |e then /|/5=The n|
|00006090| 75 6d 2e 20 6f 66 20 6d | 69 6e 75 74 65 73 20 61 |um. of m|inutes a|
|000060a0| 20 72 6f 6f 6d 20 63 61 | 6e 20 73 74 61 79 20 75 | room ca|n stay u|
|000060b0| 6e 61 74 74 65 6e 64 65 | 64 2e 00 00 73 72 63 6c |nattende|d...srcl|
|000060c0| 53 74 72 6e 00 00 00 1a | 48 53 2e 4c 65 61 76 65 |Strn....|HS.Leave|
|000060d0| 50 63 68 61 74 20 70 63 | 68 61 74 73 28 69 29 2e |Pchat pc|hats(i).|
|000060e0| 69 64 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 0f |id..srcl|Strn....|
|000060f0| 70 63 68 61 74 73 2e 72 | 65 6d 6f 76 65 20 69 00 |pchats.r|emove i.|
|00006100| 73 72 63 6c 53 74 72 6e | 00 00 00 21 6d 79 63 6f |srclStrn|...!myco|
|00006110| 6e 6e 65 63 74 69 6f 6e | 77 69 6e 2e 75 70 64 61 |nnection|win.upda|
|00006120| 74 65 6c 69 73 74 2e 6d | 6f 64 65 3d 31 00 00 00 |telist.m|ode=1...|
|00006130| 73 72 63 6c 53 74 72 6e | 00 00 00 41 6c 6f 67 3d |srclStrn|...Alog=|
|00006140| 6c 6f 67 2b 70 63 68 61 | 74 73 28 69 29 2e 63 68 |log+pcha|ts(i).ch|
|00006150| 61 6e 6e 65 6c 6e 61 6d | 65 2b 22 20 45 78 70 69 |annelnam|e+" Expi|
|00006160| 72 65 64 20 20 20 20 20 | 22 2b 64 2e 73 68 6f 72 |red     |"+d.shor|
|00006170| 74 74 69 6d 65 2b 63 68 | 72 28 31 33 29 00 00 00 |ttime+ch|r(13)...|
|00006180| 73 72 63 6c 53 74 72 6e | 00 00 00 04 65 78 69 74 |srclStrn|....exit|
|00006190| 73 72 63 6c 53 74 72 6e | 00 00 00 06 65 6e 64 20 |srclStrn|....end |
|000061a0| 69 66 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 06 |if..srcl|Strn....|
|000061b0| 65 6e 64 20 69 66 00 00 | 73 72 63 6c 53 74 72 6e |end if..|srclStrn|
|000061c0| 00 00 00 04 6e 65 78 74 | 73 72 63 6c 53 74 72 6e |....next|srclStrn|
|000061d0| 00 00 00 08 65 6e 64 20 | 69 66 20 20 73 72 63 6c |....end |if  srcl|
|000061e0| 53 74 72 6e 00 00 00 07 | 45 6e 64 20 53 75 62 00 |Strn....|End Sub.|
|000061f0| 45 6e 64 47 49 6e 74 20 | 00 00 00 7a 45 6e 64 47 |EndGInt |...zEndG|
|00006200| 49 6e 74 20 00 00 00 79 | 45 6e 64 47 49 6e 74 20 |Int ...y|EndGInt |
|00006210| 00 00 00 78 43 74 72 6c | 47 72 75 70 00 00 01 98 |...xCtrl|Grup....|
|00006220| 00 00 00 7b 6e 61 6d 65 | 53 74 72 6e 00 00 00 06 |...{name|Strn....|
|00006230| 53 6f 63 6b 65 74 00 00 | 50 44 65 66 47 72 75 70 |Socket..|PDefGrup|
|00006240| 00 00 00 24 00 00 00 7c | 6e 61 6d 65 53 74 72 6e |...$...||nameStrn|
|00006250| 00 00 00 04 4e 61 6d 65 | 50 56 61 6c 53 74 72 6e |....Name|PValStrn|
|00006260| 00 00 00 02 48 53 00 00 | 45 6e 64 47 49 6e 74 20 |....HS..|EndGInt |
|00006270| 00 00 00 7c 50 44 65 66 | 47 72 75 70 00 00 00 30 |...|PDef|Grup...0|
|00006280| 00 00 00 7d 6e 61 6d 65 | 53 74 72 6e 00 00 00 05 |...}name|Strn....|
|00006290| 49 6e 64 65 78 00 00 00 | 50 56 61 6c 53 74 72 6e |Index...|PValStrn|
|000062a0| 00 00 00 0b 2d 32 31 34 | 37 34 38 33 36 34 38 00 |....-214|7483648.|
|000062b0| 45 6e 64 47 49 6e 74 20 | 00 00 00 7d 50 44 65 66 |EndGInt |...}PDef|
|000062c0| 47 72 75 70 00 00 00 24 | 00 00 00 7e 6e 61 6d 65 |Grup...$|...~name|
|000062d0| 53 74 72 6e 00 00 00 04 | 4c 65 66 74 50 56 61 6c |Strn....|LeftPVal|
|000062e0| 53 74 72 6e 00 00 00 02 | 31 33 00 00 45 6e 64 47 |Strn....|13..EndG|
|000062f0| 49 6e 74 20 00 00 00 7e | 50 44 65 66 47 72 75 70 |Int ...~|PDefGrup|
|00006300| 00 00 00 24 00 00 00 7f | 6e 61 6d 65 53 74 72 6e |...$....|nameStrn|
|00006310| 00 00 00 03 54 6f 70 00 | 50 56 61 6c 53 74 72 6e |....Top.|PValStrn|
|00006320| 00 00 00 02 31 33 00 00 | 45 6e 64 47 49 6e 74 20 |....13..|EndGInt |
|00006330| 00 00 00 7f 50 44 65 66 | 47 72 75 70 00 00 00 24 |....PDef|Grup...$|
|00006340| 00 00 00 80 6e 61 6d 65 | 53 74 72 6e 00 00 00 07 |....name|Strn....|
|00006350| 41 64 64 72 65 73 73 00 | 50 56 61 6c 53 74 72 6e |Address.|PValStrn|
|00006360| 00 00 00 00 45 6e 64 47 | 49 6e 74 20 00 00 00 80 |....EndG|Int ....|
|00006370| 50 44 65 66 47 72 75 70 | 00 00 00 24 00 00 00 81 |PDefGrup|...$....|
|00006380| 6e 61 6d 65 53 74 72 6e | 00 00 00 04 50 6f 72 74 |nameStrn|....Port|
|00006390| 50 56 61 6c 53 74 72 6e | 00 00 00 01 30 00 00 00 |PValStrn|....0...|
|000063a0| 45 6e 64 47 49 6e 74 20 | 00 00 00 81 43 42 69 78 |EndGInt |....CBix|
|000063b0| 49 6e 74 20 00 00 00 00 | 45 6e 64 47 49 6e 74 20 |Int ....|EndGInt |
|000063c0| 00 00 00 7b 43 74 72 6c | 47 72 75 70 00 00 01 a4 |...{Ctrl|Grup....|
|000063d0| 00 00 00 82 6e 61 6d 65 | 53 74 72 6e 00 00 00 05 |....name|Strn....|
|000063e0| 54 69 6d 65 72 00 00 00 | 50 44 65 66 47 72 75 70 |Timer...|PDefGrup|
|000063f0| 00 00 00 2c 00 00 00 83 | 6e 61 6d 65 53 74 72 6e |...,....|nameStrn|
+--------+-------------------------+-------------------------+--------+--------+